Recopie automatique
bug dany
Messages postés
18
Statut
Membre
-
didibonf Messages postés 439 Statut Membre -
didibonf Messages postés 439 Statut Membre -
Bonjour,
j'essaie en vain de créer une macro que me permette de recopier des valeurs, dans une feuille excel, jusqu'à ce que la valeur suivante soit trouvée, voir ci-dessous.
A noter que les différentes valeurs se trouvent également dans une liste à part, dans le même format, .
Merci d'avance si vous pouvez m'aider.
Bien à vous
Bug
ATH CENTRE - 104000
ATH LES PRIMEVERES - 102200
CHIEVRES - 131700
ENGHIEN - 139400
FRASNES-LEZ-ANVAING - 146500
LESSINES - 167200
j'essaie en vain de créer une macro que me permette de recopier des valeurs, dans une feuille excel, jusqu'à ce que la valeur suivante soit trouvée, voir ci-dessous.
A noter que les différentes valeurs se trouvent également dans une liste à part, dans le même format, .
Merci d'avance si vous pouvez m'aider.
Bien à vous
Bug
ATH CENTRE - 104000
ATH LES PRIMEVERES - 102200
CHIEVRES - 131700
ENGHIEN - 139400
FRASNES-LEZ-ANVAING - 146500
LESSINES - 167200
A voir également:
- Recopie automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
2 réponses
Tu peux essayer quelque chose comme ça:
Sub recopie()
i = 1 'première ligne à copier (ici la ligne 1)
Do Until i = 60 'dernière ligne non vide à ne pas recopier
cop = Cells(i, 1) 'selon la colonne concernée (ici la colonne 1)
suite = Cells(i + 1, 1)
Do Until suite <> ""
suite = Cells(i + 1, 1)
If suite = "" Then
Cells(i + 1, 1) = cop
End If
i = i + 1
Loop
Loop
End Sub
Attention à bien mettre une valeur dans ta dernière ligne à ne pas recopier (ici ligne 60) pour que la boucle s'arrête
Sub recopie()
i = 1 'première ligne à copier (ici la ligne 1)
Do Until i = 60 'dernière ligne non vide à ne pas recopier
cop = Cells(i, 1) 'selon la colonne concernée (ici la colonne 1)
suite = Cells(i + 1, 1)
Do Until suite <> ""
suite = Cells(i + 1, 1)
If suite = "" Then
Cells(i + 1, 1) = cop
End If
i = i + 1
Loop
Loop
End Sub
Attention à bien mettre une valeur dans ta dernière ligne à ne pas recopier (ici ligne 60) pour que la boucle s'arrête
bug dany,
cette macro devrait fonctionne :
Sub recopie()
dernligne = Range("A65000").End(xlUp).Row
i = 13 'première ligne à copier (ici la ligne 1)
Do Until i = dernligne
cop = Cells(i, 1) 'selon la colonne concernée (ici la colonne 1)
suite = Cells(i + 1, 1)
On Error Resume Next
Do Until suite = WorksheetFunction.VLookup(suite, Sheets("Liste des entités").Range("A:A"), 1, False)
suite = Cells(i + 1, 1)
If suite <> WorksheetFunction.VLookup(suite, Sheets("Liste des entités").Range("A:A"), 1, False) Then
Cells(i + 1, 1) = cop
End If
Loop
i = i + 1
Loop
End Sub
N'hésite pas à poser des questions si tu ne comprends pas le code
cette macro devrait fonctionne :
Sub recopie()
dernligne = Range("A65000").End(xlUp).Row
i = 13 'première ligne à copier (ici la ligne 1)
Do Until i = dernligne
cop = Cells(i, 1) 'selon la colonne concernée (ici la colonne 1)
suite = Cells(i + 1, 1)
On Error Resume Next
Do Until suite = WorksheetFunction.VLookup(suite, Sheets("Liste des entités").Range("A:A"), 1, False)
suite = Cells(i + 1, 1)
If suite <> WorksheetFunction.VLookup(suite, Sheets("Liste des entités").Range("A:A"), 1, False) Then
Cells(i + 1, 1) = cop
End If
Loop
i = i + 1
Loop
End Sub
N'hésite pas à poser des questions si tu ne comprends pas le code
je rencontre un problème pour insérer les différentes données
Ci-dessous la 1ère feuille contenant les cellules, je désire que ATH CENTRE - 104000 se recopie automatiquement jusque ATH LES PRIMEVERES - 102200 et ainsi de suite.
Les différents noms sont également repris sur une 2ème feuille dans une liste en colonne (voir plus bas)
1ere feuille
ATH CENTRE - 104000
ATH LES PRIMEVERES - 102200
CHIEVRES - 131700
ENGHIEN - 139400
2ème feuille
ATH CENTRE - 104000
ATH LES PRIMEVERES - 102200
CHIEVRES - 131700
ENGHIEN - 139400
As-tu essayé la macro que je t'ai proposé? Si elle ne fonctionne pas, envoie ton fichier via cjoint.com
voici le fichier joint
https://www.cjoint.com/?3Len3yRdyUp
Merci
Merci d'avance
Bonne soirée
Bug