Déplacer et recopier des éléments variables
Résolu/Fermé
A voir également:
- Déplacer et recopier des éléments variables
- Déplacer une colonne excel - Guide
- Photoshop elements gratuit - Télécharger - Retouche d'image
- Déplacer barre des taches windows 11 - Guide
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer automatiquement. trouvez ce qu'elle veut faire puis proposez une formule à recopier vers le bas dans la colonne a. quelle formule sera en a9 ? - Forum Excel
- Je veut créer des codes ✓ - Forum Programmation
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 sept. 2011 à 08:34
29 sept. 2011 à 08:34
Salut,
Pour t'aider, il faudrait que tu nous communiques un fichier sans données confidentielles.
Pour cela, utilises un site de pièce jointe comme https://www.cjoint.com/
Tu va sur ce site créer un lien vers ton fichier et reviens coller ce lien dans une réponse.
Pour t'aider, il faudrait que tu nous communiques un fichier sans données confidentielles.
Pour cela, utilises un site de pièce jointe comme https://www.cjoint.com/
Tu va sur ce site créer un lien vers ton fichier et reviens coller ce lien dans une réponse.
Merci beaucoup !
J'ai mis un fichier test en lien
Cordialement
http://cjoint.com/?AIDqzWIeBqx
J'ai mis un fichier test en lien
Cordialement
http://cjoint.com/?AIDqzWIeBqx
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 sept. 2011 à 18:53
29 sept. 2011 à 18:53
La macro ListerNomsEnColonneB est dans le module4 de ton fichier.
Le code :
Le code :
Sub ListerNomsEnColonneB()
Dim LigDep As Long, LigFin As Long, DrLig As Long, Lig As Long
Dim Noms As String
With Sheets("test")
'cas particulier du 1er nom en A1
Noms = .Range("A1").Value
LigDep = .Range("A1").End(xlDown).Row + 1
LigFin = .Range("A" & LigDep).End(xlDown).Row
For Lig = LigDep To LigFin
.Cells(Lig, 2) = Noms
Next
DrLig = .Range("A" & Rows.Count).End(xlUp).Row
'pour les autres noms
Do
Lig = .Range("A" & LigFin).End(xlDown).Row
LigDep = .Range("A" & Lig).End(xlDown).Row
LigFin = .Range("A" & LigDep).End(xlDown).Row
Noms = .Cells(Lig, 1).Value
For Lig = LigDep To LigFin
.Cells(Lig, 2) = Noms
Next
Loop While LigFin <> DrLig
End With
End Sub