J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se
trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = ""
'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1
If Activecell.Text = (A1.feuille1) Then
Activecell.Offset (0, 2).copy
'Retour à la feuille 1
Activecell.Paste
Else
Activecell.Offset(1, 0).Select
End If
Loop
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
isabelle
bonjour,
Sub Macro1() For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then Sheets("Feuil2").Range("C" & i).Copy Destination:=Sheets("Feuil1").Range("C" & i) End If Next End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = "" 'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1 If Activecell.Text = (A1.feuille1) Then Activecell.Offset (0, 2).copy 'Retour à la feuille 1 Activecell.Paste Else Activecell.Offset(1, 0).Select End If Loop
Merci pour votre aide.
bonjour,
Sub Macro1()
For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then
Sheets("Feuil2").Range("C" & i).Copy Destination:=Sheets("Feuil1").Range("C" & i)
End If
Next
End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se
trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = ""
'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1
If Activecell.Text = (A1.feuille1) Then
Activecell.Offset (0, 2).copy
'Retour à la feuille 1
Activecell.Paste
Else
Activecell.Offset(1, 0).Select
End If
Loop
Sub Macro1() For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then Sheets("Feuil2").Range("C" & i).Copy Destination:=Sheets("Feuil1").Range("C" & i) End If Next End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = "" 'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1 If Activecell.Text = (A1.feuille1) Then Activecell.Offset (0, 2).copy 'Retour à la feuille 1 Activecell.Paste Else Activecell.Offset(1, 0).Select End If Loop
Merci pour votre aide.
Linebaker
Bonjour Isabelle,
Merci pour ton aide mais malheureusement cela ne fonctionne pas car ma cellule feuil2.A1 n'est pas égale à feuil1.A2. C'est pourquoi je dois aller à feuil2.A2 pour faire encore une vérification et ainsi de suite.
Merci
"isabelle" a écrit dans le message de news:
bonjour,
Sub Macro1() For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then Sheets("Feuil2").Range("C" & i).Copy Destination:=Sheets("Feuil1").Range("C" & i) End If Next End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = "" 'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1 If Activecell.Text = (A1.feuille1) Then Activecell.Offset (0, 2).copy 'Retour à la feuille 1 Activecell.Paste Else Activecell.Offset(1, 0).Select End If Loop
Merci pour votre aide.
Bonjour Isabelle,
Merci pour ton aide mais malheureusement cela ne fonctionne pas car ma
cellule feuil2.A1 n'est pas égale à feuil1.A2. C'est pourquoi je dois aller
à feuil2.A2 pour faire encore une vérification et ainsi de suite.
Merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eQbp1QZbGHA.1272@TK2MSFTNGP03.phx.gbl...
bonjour,
Sub Macro1()
For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then
Sheets("Feuil2").Range("C" & i).Copy
Destination:=Sheets("Feuil1").Range("C" & i)
End If
Next
End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se
trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = ""
'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1
If Activecell.Text = (A1.feuille1) Then
Activecell.Offset (0, 2).copy
'Retour à la feuille 1
Activecell.Paste
Else
Activecell.Offset(1, 0).Select
End If
Loop
Merci pour ton aide mais malheureusement cela ne fonctionne pas car ma cellule feuil2.A1 n'est pas égale à feuil1.A2. C'est pourquoi je dois aller à feuil2.A2 pour faire encore une vérification et ainsi de suite.
Merci
"isabelle" a écrit dans le message de news:
bonjour,
Sub Macro1() For i = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row If Sheets("Feuil2").Range("A" & i) = Sheets("Feuil1").Range("A" & i) Then Sheets("Feuil2").Range("C" & i).Copy Destination:=Sheets("Feuil1").Range("C" & i) End If Next End Sub
isabelle
Bonjour,
J'aimerais savoir comment écrire le code pour comparer 2 cellules qui se trouvent sur 2 pages différentes, ex. :
Do Until Activecell.Text = "" 'Comparer la cellule A1 de la feuille 2 à la cellule A1 de la feuille 1 If Activecell.Text = (A1.feuille1) Then Activecell.Offset (0, 2).copy 'Retour à la feuille 1 Activecell.Paste Else Activecell.Offset(1, 0).Select End If Loop
