j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite
répéter le trait "-" n fois pour que la date de naissance (en 8 caractères
de long) tombe toujours au meme endroit après les "-" .
suis je clair ? j'en doute
voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères
daten = date de naissance " 8 caractères
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut Patrick Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1, 1))) ' & datenaissance et la suite Cela doit d'aider, tu mets dans une boucle et .......hop enfin cela fait toujours 15 lettres avant la datenaissance Youky "...Patrick" a écrit dans le message de news: %
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite répéter le trait "-" n fois pour que la date de naissance (en 8 caractères de long) tombe toujours au meme endroit après les "-" . suis je clair ? j'en doute voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères daten = date de naissance " 8 caractères
Salut Patrick
Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1, 1)))
' & datenaissance et la suite
Cela doit d'aider, tu mets dans une boucle et .......hop
enfin cela fait toujours 15 lettres avant la datenaissance
Youky
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de news:
%23i4DWgPVGHA.4248@TK2MSFTNGP10.phx.gbl...
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais
ensuite répéter le trait "-" n fois pour que la date de naissance (en 8
caractères de long) tombe toujours au meme endroit après les "-" .
suis je clair ? j'en doute
voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères
daten = date de naissance " 8 caractères
Salut Patrick Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1, 1))) ' & datenaissance et la suite Cela doit d'aider, tu mets dans une boucle et .......hop enfin cela fait toujours 15 lettres avant la datenaissance Youky "...Patrick" a écrit dans le message de news: %
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite répéter le trait "-" n fois pour que la date de naissance (en 8 caractères de long) tombe toujours au meme endroit après les "-" . suis je clair ? j'en doute voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères daten = date de naissance " 8 caractères
Merci mais ç'est pas ça encore.. là j'y arrive aussi c 'est plutot ceci (entre patrick et 12/09/76) en fait le nb de - doit varier suivant la longueur du nom. patrick------12/09/76--------paris jean---------14/12/87--------toulouse christophe---18/12/78--------bruxelles
Merci
"Youky" a écrit dans le message de news:
Salut Patrick Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1, 1))) ' & datenaissance et la suite Cela doit d'aider, tu mets dans une boucle et .......hop enfin cela fait toujours 15 lettres avant la datenaissance Youky "...Patrick" a écrit dans le message de news: %
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite répéter le trait "-" n fois pour que la date de naissance (en 8 caractères de long) tombe toujours au meme endroit après les "-" . suis je clair ? j'en doute voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères daten = date de naissance " 8 caractères
Merci mais ç'est pas ça encore.. là j'y arrive aussi
c 'est plutot ceci (entre patrick et 12/09/76)
en fait le nb de - doit varier suivant la longueur du nom.
patrick------12/09/76--------paris
jean---------14/12/87--------toulouse
christophe---18/12/78--------bruxelles
Merci
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
OUNsIBQVGHA.1688@TK2MSFTNGP11.phx.gbl...
Salut Patrick
Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1,
1))) ' & datenaissance et la suite
Cela doit d'aider, tu mets dans une boucle et .......hop
enfin cela fait toujours 15 lettres avant la datenaissance
Youky
"...Patrick" <NOSPAM_p_mackay@hotmail.com> a écrit dans le message de
news: %23i4DWgPVGHA.4248@TK2MSFTNGP10.phx.gbl...
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais
ensuite répéter le trait "-" n fois pour que la date de naissance (en 8
caractères de long) tombe toujours au meme endroit après les "-" .
suis je clair ? j'en doute
voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères
daten = date de naissance " 8 caractères
Merci mais ç'est pas ça encore.. là j'y arrive aussi c 'est plutot ceci (entre patrick et 12/09/76) en fait le nb de - doit varier suivant la longueur du nom. patrick------12/09/76--------paris jean---------14/12/87--------toulouse christophe---18/12/78--------bruxelles
Merci
"Youky" a écrit dans le message de news:
Salut Patrick Cells(1, 2) = Cells(1, 1) & Mid("---------------", 1, 15 - Len(Cells(1, 1))) ' & datenaissance et la suite Cela doit d'aider, tu mets dans une boucle et .......hop enfin cela fait toujours 15 lettres avant la datenaissance Youky "...Patrick" a écrit dans le message de news: %
Bonsoir;
j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite répéter le trait "-" n fois pour que la date de naissance (en 8 caractères de long) tombe toujours au meme endroit après les "-" . suis je clair ? j'en doute voici la partie du code:
longue = nbcar(nom) 'exemple 15 caracères daten = date de naissance " 8 caractères
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
Exemple avec police "Courrier New" (non proportionnelle)
Nom en A1 - Date naiss en B1 - Ville en C1
Minimum 3 tirets de séparation (à adapter)
Matricielle :
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
merci Alain, mais c'est dans un msgbox, sait on changer sa police ?
Set Coldates = Sheets("anni").[E:E] ' cette colonne contient le n° de semaine de la date de naissance Chercher = Lasemaine ' n° de la semaine en cours With Coldates On Error Resume Next Set C = .Find(What:=Chercher, LookIn:=xlValues, LookAt:=xlWhole) If Not C Is Nothing Then Adr = C.Address Do Range(C.Offset(0, -4), C.Offset(0, 0)).Interior.ColorIndex = 12 Mclub = C.Offset(0, -4) Lapersonne = C.Offset(0, -2) DateN = C.Offset(0, -1) Longue = Len(Lapersonne) Age = Year(Date) - Year(C.Offset(0, -1)) Personnes = Personnes & Lapersonne & _
Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Adr Else: MsgBox "Aucune donnée correspondante." Exit Sub End If End With If Not IsEmpty(Personnes) Then Dim Mydate As Date: Mydate = Date Dim Msg Msg = MsgBox("Cette semaine , c'est l'anniversaire de :" & vbCrLf & vbCrLf & _ Personnes, vbInformation, "Nous sommes le " & Mydate) Ac.Select End If
"AV" a écrit dans le message de news: %
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
merci Alain, mais c'est dans un msgbox, sait on changer sa police ?
Set Coldates = Sheets("anni").[E:E] ' cette colonne contient le n° de
semaine de la date de naissance
Chercher = Lasemaine ' n° de la semaine en cours
With Coldates
On Error Resume Next
Set C = .Find(What:=Chercher, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
Adr = C.Address
Do
Range(C.Offset(0, -4), C.Offset(0, 0)).Interior.ColorIndex = 12
Mclub = C.Offset(0, -4)
Lapersonne = C.Offset(0, -2)
DateN = C.Offset(0, -1)
Longue = Len(Lapersonne)
Age = Year(Date) - Year(C.Offset(0, -1))
Personnes = Personnes & Lapersonne & _
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adr
Else:
MsgBox "Aucune donnée correspondante."
Exit Sub
End If
End With
If Not IsEmpty(Personnes) Then
Dim Mydate As Date: Mydate = Date
Dim Msg
Msg = MsgBox("Cette semaine , c'est l'anniversaire de :" & vbCrLf &
vbCrLf & _
Personnes, vbInformation, "Nous sommes le " & Mydate)
Ac.Select
End If
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23yccziWVGHA.5172@TK2MSFTNGP12.phx.gbl...
Exemple avec police "Courrier New" (non proportionnelle)
Nom en A1 - Date naiss en B1 - Ville en C1
Minimum 3 tirets de séparation (à adapter)
Matricielle :
merci Alain, mais c'est dans un msgbox, sait on changer sa police ?
Set Coldates = Sheets("anni").[E:E] ' cette colonne contient le n° de semaine de la date de naissance Chercher = Lasemaine ' n° de la semaine en cours With Coldates On Error Resume Next Set C = .Find(What:=Chercher, LookIn:=xlValues, LookAt:=xlWhole) If Not C Is Nothing Then Adr = C.Address Do Range(C.Offset(0, -4), C.Offset(0, 0)).Interior.ColorIndex = 12 Mclub = C.Offset(0, -4) Lapersonne = C.Offset(0, -2) DateN = C.Offset(0, -1) Longue = Len(Lapersonne) Age = Year(Date) - Year(C.Offset(0, -1)) Personnes = Personnes & Lapersonne & _
Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Adr Else: MsgBox "Aucune donnée correspondante." Exit Sub End If End With If Not IsEmpty(Personnes) Then Dim Mydate As Date: Mydate = Date Dim Msg Msg = MsgBox("Cette semaine , c'est l'anniversaire de :" & vbCrLf & vbCrLf & _ Personnes, vbInformation, "Nous sommes le " & Mydate) Ac.Select End If
"AV" a écrit dans le message de news: %
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23yccziWVGHA.5172@TK2MSFTNGP12.phx.gbl...
Exemple avec police "Courrier New" (non proportionnelle)
Nom en A1 - Date naiss en B1 - Ville en C1
Minimum 3 tirets de séparation (à adapter)
Matricielle :
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23yccziWVGHA.5172@TK2MSFTNGP12.phx.gbl...
Exemple avec police "Courrier New" (non proportionnelle)
Nom en A1 - Date naiss en B1 - Ville en C1
Minimum 3 tirets de séparation (à adapter)
Matricielle :
Exemple avec police "Courrier New" (non proportionnelle) Nom en A1 - Date naiss en B1 - Ville en C1 Minimum 3 tirets de séparation (à adapter) Matricielle :
