voila j'ai un code qui recopie des cellules de la feuille 1 en feuille 2
sous condition voici le code:
Private Sub CommandButton1_Click()
[Feuille1!a4:h65536].ClearContents
derlcr = Sheets("créance").Range("a65536").End(3).Row
x = 4
For Each c In Range("a3:a" & derlcr)
If UCase(Sheets("Créance").Range("i" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("j" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("k" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("l" & c.Row)) = "X" Then
Sheets("Créance").Range("a" & c.Row & ":" & "c" & c.Row).Copy
Sheets("Paiement").Range("a" & x)
Sheets("Créance").Range("g" & c.Row & ":" & "h" & c.Row).Copy
Sheets("Paiement").Range("d" & x)
x = x + 1
End If
Next
Unload userform4
End Sub
seul probleme cela m'ecrase ce que j'ecrit sur la feuille 2
est il possible de ne pas ecraser ce que je rajoute en colonne f,g,et h
merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
novice
merci j'ai trouver tout seul
merci tout de meme.
"novice" a écrit dans le message de news:4431006b$0$167$
rebonjour
voila j'ai un code qui recopie des cellules de la feuille 1 en feuille 2 sous condition voici le code:
Private Sub CommandButton1_Click() [Feuille1!a4:h65536].ClearContents derlcr = Sheets("créance").Range("a65536").End(3).Row x = 4 For Each c In Range("a3:a" & derlcr) If UCase(Sheets("Créance").Range("i" & c.Row)) = "X" And UCase(Sheets("Créance").Range("j" & c.Row)) = "X" And UCase(Sheets("Créance").Range("k" & c.Row)) = "X" And UCase(Sheets("Créance").Range("l" & c.Row)) = "X" Then Sheets("Créance").Range("a" & c.Row & ":" & "c" & c.Row).Copy Sheets("Paiement").Range("a" & x) Sheets("Créance").Range("g" & c.Row & ":" & "h" & c.Row).Copy Sheets("Paiement").Range("d" & x) x = x + 1 End If Next Unload userform4 End Sub
seul probleme cela m'ecrase ce que j'ecrit sur la feuille 2
est il possible de ne pas ecraser ce que je rajoute en colonne f,g,et h merci de votre aide
merci j'ai trouver tout seul
merci tout de meme.
"novice" <pasdepub@numericable.fr> a écrit dans le message de
news:4431006b$0$167$a3f2974a@nnrp1.numericable.fr...
rebonjour
voila j'ai un code qui recopie des cellules de la feuille 1 en feuille 2
sous condition voici le code:
Private Sub CommandButton1_Click()
[Feuille1!a4:h65536].ClearContents
derlcr = Sheets("créance").Range("a65536").End(3).Row
x = 4
For Each c In Range("a3:a" & derlcr)
If UCase(Sheets("Créance").Range("i" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("j" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("k" & c.Row)) = "X" And
UCase(Sheets("Créance").Range("l" & c.Row)) = "X" Then
Sheets("Créance").Range("a" & c.Row & ":" & "c" & c.Row).Copy
Sheets("Paiement").Range("a" & x)
Sheets("Créance").Range("g" & c.Row & ":" & "h" & c.Row).Copy
Sheets("Paiement").Range("d" & x)
x = x + 1
End If
Next
Unload userform4
End Sub
seul probleme cela m'ecrase ce que j'ecrit sur la feuille 2
est il possible de ne pas ecraser ce que je rajoute en colonne f,g,et h
merci de votre aide
"novice" a écrit dans le message de news:4431006b$0$167$
rebonjour
voila j'ai un code qui recopie des cellules de la feuille 1 en feuille 2 sous condition voici le code:
Private Sub CommandButton1_Click() [Feuille1!a4:h65536].ClearContents derlcr = Sheets("créance").Range("a65536").End(3).Row x = 4 For Each c In Range("a3:a" & derlcr) If UCase(Sheets("Créance").Range("i" & c.Row)) = "X" And UCase(Sheets("Créance").Range("j" & c.Row)) = "X" And UCase(Sheets("Créance").Range("k" & c.Row)) = "X" And UCase(Sheets("Créance").Range("l" & c.Row)) = "X" Then Sheets("Créance").Range("a" & c.Row & ":" & "c" & c.Row).Copy Sheets("Paiement").Range("a" & x) Sheets("Créance").Range("g" & c.Row & ":" & "h" & c.Row).Copy Sheets("Paiement").Range("d" & x) x = x + 1 End If Next Unload userform4 End Sub
seul probleme cela m'ecrase ce que j'ecrit sur la feuille 2
est il possible de ne pas ecraser ce que je rajoute en colonne f,g,et h merci de votre aide
