annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement

Index du forum

Accueil » Tous les messages (BrunoM45)


(1) 2 »


BrunoM45
Re : Alimenter automatiquement un ComboBox avec des dates
#1
Invité
Bonjour les Zamis,

Quand on édite les fichiers (xls ou zip) mis à disposition, voici ce que l'on trouve en entête du fichier
<!-- Piwik statistiques -->
<script type="text/javascript">
  var _paq = _paq || [];
  _paq.push(['trackPageView']);
  _paq.push(['enableLinkTracking']);
  (function() {
    var u=(("https:" == document.location.protocol) ? "https" : "http") + "";
    _paq.push(['setTrackerUrl', u+'piwik.php']);
    _paq.push(['setSiteId', 2]);
    var d=document, g=d.createElement('script'), s=d.getElementsByTagName('script')[0]; g.type='text/javascript';
    g.defer=true; g.async=true; g.src=u+'piwik.js'; s.parentNode.insertBefore(g,s);
  })();
</script>
<noscript><p><img src="" style="border:0;" alt="" /></p></noscript>
<!-- FIN Piwik statistiques -->


Absolument ANORMAL

A+

Date de publication : 02/08/2014 06:10
Dénoncer


BrunoM45
Re : copie automatique avec formules
#2
Invité
Bonjour les filles

Pour avoir la formule dans la même cellule, tu peux essayer
=SI(OU(B2="";ESTNA(EQUIV(G2;Nom_Prénom_ffa;0)));"NON OK";"OK")


A+

Date de publication : 28/05/2014 10:50
Dénoncer


BrunoM45
Re : Gestion Cave à vin
#3
Invité
Re,

RCIAN1957, pour info si tu as 2010 ou ultérieur, ce n'est pas une barre qui s'affiche, mais un onglet supplémentaire nommé "compléments" tu y retrouveras tous les boutons, normalement

Date de publication : 08/05/2014 16:57
Dénoncer


BrunoM45
Re : Gestion Cave à vin
#4
Invité
Bonjour Rcian1957
Coucou ma P'tites couettes et merci pour le "rameutage"

Rcian1957, 1ère question, quelle est ta version d'Excel et sur quel type de machine (Mac/PC)

A+

Date de publication : 08/05/2014 16:31
Dénoncer


BrunoM45
Re : Modifier une cellule d'un classeur fermé avec la valeur sélectionnéé dans un combobox
#5
Invité
Bonjour Exene et bienvenue sur ce forum

Tu trouveras ci-dessous un lien qui devrait pouvoir t'aider
http://frederic.sigonneau.free.fr/Ado.htm

Cordialement

Date de publication : 07/05/2014 11:51
Dénoncer


BrunoM45
Re : scroll de liste déroulante avec molette
#6
Invité
Bonjour P'tites couettes
Salut Jeremy

Pour utiliser le code, il faut Copier dans ton classeur :
1) le module : M_MouseWheelHook
2) le code de l'UserForm
3) Adapter à tes besoins

A+

Date de publication : 08/04/2014 02:29
Dénoncer


BrunoM45
Re : scroll de liste déroulante avec molette
#7
Invité
Bonjour JeremyP

Voici un fichier avec le code qui va bien (normalement)

Ce code utilise le "Mouse Wheel Hook"

A+

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 04/04/2014 16:53
Dénoncer


BrunoM45
Re : postionner automatiquement le curseur sur ligne crée
#8
Invité
Bonjour anaxagore

Tu peux essayer ce code
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LigNew As Long
  Application.EnableEvents = False
  On Error Resume Next
  If Not Intersect(Target, Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    Target.Value = UCase(Mid(Target.Value, 1, InStr(1, Target.Value, " ") + 1)) & LCase(Mid(Target.Value, InStr(1, Target.Value, " ") + 2, Len(Target.Value) - InStr(1, Target.Value, " ") + 1))
    ' Inscrire un indicateur de nouvellement saisi dans la colonne O
    Range("O" & Target.Row) = "New"
    ' Faire le tri du tableau avec la colonne O en plus
    'Range("A11:N" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes
    Range("A11:O" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes
  End If
  For i = 11 To Range("B" & Rows.Count).End(xlUp).Row
    Range("A" & i).Value = i - 10
  Next i
  ' Retrouver le nom qui vient d'être saisi grace à l'indicateur
  LigNew = Range("O:O").Find(What:="New").Row
  ' Se positionner sur la ligne
  Range("C" & LigNew).Select
  ' On, peut effacer l'indicateur
  Range("O" & LigNew).ClearContents
  '
  Application.EnableEvents = True
End Sub


A+

Date de publication : 10/01/2014 04:52
Dénoncer


BrunoM45
Re : Modification Macro
#9
Invité
Bonjour Ntx et bienvenue sur ce forum

Tu peux essayer ce code
Private Sub Workbook_Open()
  Dim DLig As Long, Lig As Long
  Dim sTmp As String, sDate As String, vDate As Date
  Dim EcartJ As Long, EcartM As Long
  Dim Msg As String
  With Worksheets("Model 1")
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    For Lig = 13 To DLig  ' Pour chaque ligne
      sTmp = .Range("B" & Lig).Value
      ' Vérifier s'il s'agit d'une ligne d'ouverture
      ' Sinon, passer à la ligne suivante
      If InStr(1, sTmp, "Date ouv") = 0 Then GoTo SuiteLig
      ' Récupérer le texte de la date
      sDate = Mid(sTmp, InStr(1, sTmp, "/") - 2, 10)
      ' Convertir en valeur de date
      vDate = DateValue(sDate)
      ' Calculer l'écart en mois
      EcartM = DateDiff("m", vDate, Now)
      ' Selon l'écart
      If EcartM >= 2 And EcartM < 3 Then
        EcartJ = DateDiff("d", vDate, Now)
        Msg = Msg & "Le client  " & .Cells(Lig - 2, 2) & " pour " _
            & ", N°Reg " & .Cells(Lig - 3, 4) & "  atteint  ces 3 mois, dans " & EcartJ & " jours." & Chr(10)
      ElseIf EcartM > 3 Then
        Msg = Msg & "Le client " & .Cells(Lig - 2, 2) & " pour " _
            & ", mat " & .Cells(Lig, 1) & " a dejà atteint  3 mois et  plus  " & Chr(10)
      End If
SuiteLig:
    Next Lig
    MsgBox Msg
  End With
End Sub


A+

Date de publication : 25/11/2013 23:02
Dénoncer


BrunoM45
Re : Candidature tracabilisé
#10
Invité
Bonjour Jean-Louis et bienvenue sur ce forum

Que souhaites-tu avoir comme réponse exactement ?

A+

Date de publication : 25/11/2013 22:32
Dénoncer


BrunoM45
Re : Référence à une feuille dans vba
#11
Invité
Ben j'y comprends rien

Regarde ma copie d'écran, il faut que j'aille voir dans mes paramètres

A+

Joindre un fichier:


jpg  ScreenShot085_1.jpg (23.05 KB)
73_5275453ec8b70.jpg 640X301 px

Date de publication : 02/11/2013 19:32
Dénoncer


BrunoM45
Re : Référence à une feuille dans vba
#12
Invité
Hihi, heuuu pour moi 19h45 c dans le futur
Tu cause donc bien dans le futur !?
A la logique de l'homme et de la femme ne sera jamais la même.. Xptdr

Date de publication : 02/11/2013 19:05
Dénoncer


BrunoM45
Re : Référence à une feuille dans vba
#13
Invité
Re,

Dis-donc il y a un sacré problème d'heure sur le site ou tu arrives à voyager dans le futur !?

Biz

Date de publication : 02/11/2013 18:18
Dénoncer


BrunoM45
Re : Référence à une feuille dans vba
#14
Invité
Coucou ma P'tites couettes

Normalement si tu fais
Sheets(Range(RefCellule).Value)

Cela devrait fonctionner

Ou je n'est pas tout compris

A+

Date de publication : 02/11/2013 17:48
Dénoncer


BrunoM45
Gestion de cave à vin (Made Ti)
#15
Invité
Bonjour à tous et surtout à l'admin et aux modos

Je suis retombé par hasard sur cette appli made in Ti, j'espère que ça vous fera plaisir

Si elle a besoin d'amélioration, je suis prêt à aider, mais il me faudra les codes

A+

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 22/10/2013 19:27
Dénoncer



(1) 2 »



Copyright 2013 Powered by XOOPS © 2001-2013