Phytoman
XLDnaute Junior
Bonjour
J'ai reçu une aide précieuse d'un membre mais je n'arrive plus à le contacter :-(
Il me reste à créer deux colonnes dans lesquelles je concaténerait :
1) Visiteur
2) Espace
3) Equipe (le mot)
4) Espace
5) Division2 --> variante de division dans laquelle je n'ai pas forcé les Zéros devant
J'ai essayé ceci, mais je n'arrive pas à avoir d'espace
Division2 = Right("" & Sheets(SheetName).Range("A:A").Cells(Ligne, 1), 5)
Matricule = Right("00000" & Sheets(SheetName).Range("A:L").Cells(Ligne, 10), 5)
Matricule2 = Right("00000" & Sheets(SheetName).Range("A:L").Cells(Ligne, 11), 5)
Sheets("result").Range("A:A").Cells(Ligne, 1) = Visité
Sheets("result").Range("B:B").Cells(Ligne, 1) = Initiale & Division & Matricule
Sheets(SheetName).Range("L" & Ligne) = Initiale & Division & Matricule
Sheets(SheetName).Range("M" & Ligne) = Initiale & Division & Matricule2
Sheets(SheetName).Range("N" & Ligne) = Visité & "" & équipe & Division
Sheets(SheetName).Range("N" & Ligne) = Visiteur & "" & "Equipe" & "" & Division2
Le résultat devrait donner : Liège équipe U19
Idem pour les visiteurs
Merci pour votre aide
Jean
J'ai reçu une aide précieuse d'un membre mais je n'arrive plus à le contacter :-(
Il me reste à créer deux colonnes dans lesquelles je concaténerait :
1) Visiteur
2) Espace
3) Equipe (le mot)
4) Espace
5) Division2 --> variante de division dans laquelle je n'ai pas forcé les Zéros devant
J'ai essayé ceci, mais je n'arrive pas à avoir d'espace
Division2 = Right("" & Sheets(SheetName).Range("A:A").Cells(Ligne, 1), 5)
Matricule = Right("00000" & Sheets(SheetName).Range("A:L").Cells(Ligne, 10), 5)
Matricule2 = Right("00000" & Sheets(SheetName).Range("A:L").Cells(Ligne, 11), 5)
Sheets("result").Range("A:A").Cells(Ligne, 1) = Visité
Sheets("result").Range("B:B").Cells(Ligne, 1) = Initiale & Division & Matricule
Sheets(SheetName).Range("L" & Ligne) = Initiale & Division & Matricule
Sheets(SheetName).Range("M" & Ligne) = Initiale & Division & Matricule2
Sheets(SheetName).Range("N" & Ligne) = Visité & "" & équipe & Division
Sheets(SheetName).Range("N" & Ligne) = Visiteur & "" & "Equipe" & "" & Division2
Le résultat devrait donner : Liège équipe U19
Idem pour les visiteurs
Merci pour votre aide
Jean