VBA copier/coller avec conditions spécifiques
Résolu
Olive0185
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Olive0185 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Olive0185 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vais essayer d'être le plus clair possible.
Sur ma 1° feuille, j'ai un nom en colonne B et une valeur en colonne E (les autres colonnes de la ligne sont vides).
Sur ma 2° feuille, je désir regrouper ces données de la façon suivante :
A / B / C
B08 / nom / valeur feuill1
Sur la feuill2 le nom est rentré manuellement.
J'ai créé, pour cela, la macro suivante :
Dim l As Long
Dim c As Long
c = Range("B65536").End(xlUp).row
For l = c To 2 Step -1
Sheets("Feuill1").Select
If Cells(l, 2).Value = "nom" And Cells(l, 1).Value = "" Then
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End If
End If
Next l
La macro repère bien les noms mais ne copie pas la valeur de la Feuill1 à Feuill2.
Si vous avez besoin de plus d'explication n'hésitez pas. Merci.
Je vais essayer d'être le plus clair possible.
Sur ma 1° feuille, j'ai un nom en colonne B et une valeur en colonne E (les autres colonnes de la ligne sont vides).
Sur ma 2° feuille, je désir regrouper ces données de la façon suivante :
A / B / C
B08 / nom / valeur feuill1
Sur la feuill2 le nom est rentré manuellement.
J'ai créé, pour cela, la macro suivante :
Dim l As Long
Dim c As Long
c = Range("B65536").End(xlUp).row
For l = c To 2 Step -1
Sheets("Feuill1").Select
If Cells(l, 2).Value = "nom" And Cells(l, 1).Value = "" Then
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End If
End If
Next l
La macro repère bien les noms mais ne copie pas la valeur de la Feuill1 à Feuill2.
Si vous avez besoin de plus d'explication n'hésitez pas. Merci.
A voir également:
- VBA copier/coller avec conditions spécifiques
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
4 réponses
A la place de :
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End if
je mettrai :
If Sheets("Feuill2").Cells(l, 2).Value = "nom" Then
Sheets("Feuill2").Range("C4") = Sheets("Feuill1").Cells(l, 5)
End if
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End if
je mettrai :
If Sheets("Feuill2").Cells(l, 2).Value = "nom" Then
Sheets("Feuill2").Range("C4") = Sheets("Feuill1").Cells(l, 5)
End if