Tant que fin tant que
Jerem
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,
J'ai un petit pb au niveau de vba
Voila, j ai une liste de données dans la feuille1 et je voudrais copier et coller les lignes sur la feuille2 quand une donnée est saisit dans une cellule (pour mon exemple la cellule X).
Pour l'instant j'ai fait un DO WHILE LOOP
Mais je n'arrive pas à accrementer sur les lignes suivantes
Voici mon exemple
Do While Sheets("feuil1").Range("x2") = ""
With Sheets("feuil1")
If Sheets("feuil1").Range("u2") = "" Then
Sheets("feuil2").Range("A1:U1") = ""
Else
Sheets("feuil1").Select
ActiveWindow.SmallScroll Down:=-15
Range("B7").Select
ActiveWindow.SmallScroll Down:=-15
Rows("2:2").Select
Selection.Copy
Sheets("feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
End If
End With
Loop
End Sub
Votre aide sera très précieuse!!
Merci d'avance
J'ai un petit pb au niveau de vba
Voila, j ai une liste de données dans la feuille1 et je voudrais copier et coller les lignes sur la feuille2 quand une donnée est saisit dans une cellule (pour mon exemple la cellule X).
Pour l'instant j'ai fait un DO WHILE LOOP
Mais je n'arrive pas à accrementer sur les lignes suivantes
Voici mon exemple
Do While Sheets("feuil1").Range("x2") = ""
With Sheets("feuil1")
If Sheets("feuil1").Range("u2") = "" Then
Sheets("feuil2").Range("A1:U1") = ""
Else
Sheets("feuil1").Select
ActiveWindow.SmallScroll Down:=-15
Range("B7").Select
ActiveWindow.SmallScroll Down:=-15
Rows("2:2").Select
Selection.Copy
Sheets("feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
End If
End With
Loop
End Sub
Votre aide sera très précieuse!!
Merci d'avance
A voir également:
- Tant que fin tant que
- Fin des zfe - Guide
- Faire une offre sur un lot vinted en tant que vendeur - Guide
- Shutdown n'est pas reconnu en tant que commande interne - Forum Windows 10
- Ouvrir en tant qu'administrateur mac - Forum MacOS
- Les raccourcis clavier sont désactivés tant que ce panneau est visible discord - Forum Logiciels
1 réponse
bonjour,
i=2
b=2
Do While Sheets("feuil1").cells(i,24) = ""
With Sheets("feuil1")
If Sheets("feuil1"). <> "" Then
Sheets("feuil1").Select
Rows(i).Select
Selection.Copy
Sheets("feuil2").Select
cells(b,1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
b=b+1
End If
End With
i=i+1
Loop
i=2
b=2
Do While Sheets("feuil1").cells(i,24) = ""
With Sheets("feuil1")
If Sheets("feuil1"). <> "" Then
Sheets("feuil1").Select
Rows(i).Select
Selection.Copy
Sheets("feuil2").Select
cells(b,1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
b=b+1
End If
End With
i=i+1
Loop
i=2
b=2
Do While Sheets("feuil1").cells(i,24) = ""
With Sheets("feuil1")
If Sheets("feuil1").cells(i,21) <> "" Then
Sheets("feuil1").Select
Rows(i).Select
Selection.Copy
Sheets("feuil2").Select
cells(b,1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
b=b+1
End If
End With
i=i+1
Loop
Merci de ton aide, mais la macro ne fait aucune action sur la feuille n°2
j'ai essayé sur une feuille vierge j ai le meme probleme
Il faut que ta colonne U soit renseignée pour que la ligne soit copiée???
i=2
b=2
Do While Sheets("feuil1").cells(i,24) = "" 'la macro tourne tant que la cellule de ligne i et de la colonne x = ""
With Sheets("feuil1")
If Sheets("feuil1").cells(i,21) <> "" Then 'si dans la cellule de la ligne i et de la colonne u, il y a une valeur
Sheets("feuil1").Select
Rows(i).Copy 'on copie la ligne
Sheets("feuil2").Select 'on sélectionne la feuille 2
cells(b,1).Select 'on sélectionne la cellule de la ligne b et de la colonne 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' et on colle la ligne copiée
b=b+1
End If
End With
i=i+1
Loop