Une fois de plus, j'ai besoin de votre aide.
J'ai cette macro (merci GVentre):
Sub CopieDonnee()
Dim Cell, MaPlageX As Range
Set MaPlageX = Range("C1:C5") '>>>>à adpater
For Each Cell In MaPlageX
If Cell = "x" Then
Cell.Offset(0, 2) = Cell.Offset(0, -2)
Cell.Offset(0, 3) = Cell.Offset(0, -1)
End If
Next
End Sub
Son but est de recopier les données des colonnes 1 et 2 si dans la colonne 3
j'ai une croix. Mon problème c'est que je veux recopier ces données dans la
feuille 2 et je ne sais pas ou ecrire cela.
Merci d'avance pour vos reponses, elles m'aideraient vraiment.
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
titeuf24
Salut,
essaie ca, ce devrait copier tes donnees dans les colonnes A et B de la feuille 2.
Sub CopieDonnee()
Dim Cell, MaPlageX As Range dim i as integer Set MaPlageX = Range("C1:C5") '>>>>à adpater i=2
For Each Cell In MaPlageX If Cell = "x" Then sheets("Feuil2").cells(i,1) = Cell.Offset(0, -2) sheets("Feuil2").cells(i,2) = Cell.Offset(0, -1) End If
Christophe.
Bonjour à tous,
Une fois de plus, j'ai besoin de votre aide. J'ai cette macro (merci GVentre): Sub CopieDonnee()
Dim Cell, MaPlageX As Range Set MaPlageX = Range("C1:C5") '>>>>à adpater
For Each Cell In MaPlageX If Cell = "x" Then Cell.Offset(0, 2) = Cell.Offset(0, -2) Cell.Offset(0, 3) = Cell.Offset(0, -1) End If Next
End Sub
Son but est de recopier les données des colonnes 1 et 2 si dans la colonne 3 j'ai une croix. Mon problème c'est que je veux recopier ces données dans la feuille 2 et je ne sais pas ou ecrire cela.
Merci d'avance pour vos reponses, elles m'aideraient vraiment.
Salut,
essaie ca, ce devrait copier tes donnees dans les colonnes A et B de la
feuille 2.
Sub CopieDonnee()
Dim Cell, MaPlageX As Range
dim i as integer
Set MaPlageX = Range("C1:C5") '>>>>à adpater
i=2
For Each Cell In MaPlageX
If Cell = "x" Then
sheets("Feuil2").cells(i,1) = Cell.Offset(0, -2)
sheets("Feuil2").cells(i,2) = Cell.Offset(0, -1)
End If
Christophe.
Bonjour à tous,
Une fois de plus, j'ai besoin de votre aide.
J'ai cette macro (merci GVentre):
Sub CopieDonnee()
Dim Cell, MaPlageX As Range
Set MaPlageX = Range("C1:C5") '>>>>à adpater
For Each Cell In MaPlageX
If Cell = "x" Then
Cell.Offset(0, 2) = Cell.Offset(0, -2)
Cell.Offset(0, 3) = Cell.Offset(0, -1)
End If
Next
End Sub
Son but est de recopier les données des colonnes 1 et 2 si dans la colonne 3
j'ai une croix. Mon problème c'est que je veux recopier ces données dans la
feuille 2 et je ne sais pas ou ecrire cela.
Merci d'avance pour vos reponses, elles m'aideraient vraiment.
essaie ca, ce devrait copier tes donnees dans les colonnes A et B de la feuille 2.
Sub CopieDonnee()
Dim Cell, MaPlageX As Range dim i as integer Set MaPlageX = Range("C1:C5") '>>>>à adpater i=2
For Each Cell In MaPlageX If Cell = "x" Then sheets("Feuil2").cells(i,1) = Cell.Offset(0, -2) sheets("Feuil2").cells(i,2) = Cell.Offset(0, -1) End If
Christophe.
Bonjour à tous,
Une fois de plus, j'ai besoin de votre aide. J'ai cette macro (merci GVentre): Sub CopieDonnee()
Dim Cell, MaPlageX As Range Set MaPlageX = Range("C1:C5") '>>>>à adpater
For Each Cell In MaPlageX If Cell = "x" Then Cell.Offset(0, 2) = Cell.Offset(0, -2) Cell.Offset(0, 3) = Cell.Offset(0, -1) End If Next
End Sub
Son but est de recopier les données des colonnes 1 et 2 si dans la colonne 3 j'ai une croix. Mon problème c'est que je veux recopier ces données dans la feuille 2 et je ne sais pas ou ecrire cela.
Merci d'avance pour vos reponses, elles m'aideraient vraiment.
