A voir également:
- Comparer les cellules d'une plage aux cellule
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
4 réponses
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
29 août 2010 à 21:17
29 août 2010 à 21:17
Bonjour,
For Each c In Worksheets("Feuil2").Range("B10:B50")
For x = 10 To 50
If Worksheets("Feuil1").Range("B" & x).Value <> "" Then
If c.Value = Worksheets("Feuil1").Range("B" & x).Value Then
c.Offset(0, 1).Value = "1"
End If
End If
Next x
Next
a essayer.
Bonne continuation.
For Each c In Worksheets("Feuil2").Range("B10:B50")
For x = 10 To 50
If Worksheets("Feuil1").Range("B" & x).Value <> "" Then
If c.Value = Worksheets("Feuil1").Range("B" & x).Value Then
c.Offset(0, 1).Value = "1"
End If
End If
Next x
Next
a essayer.
Bonne continuation.
cousinhub29
Messages postés
643
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
24 mars 2023
325
30 août 2010 à 07:53
30 août 2010 à 07:53
Bonjour,
une autre solution :
Bonne journée
une autre solution :
Sub cherche()
Dim PlgSource As Range, PlgRech As Range, Cel As Range, C As Range
Set PlgSource = Sheets("Feuil2").Range("B10:B50")
Set PlgRech = Sheets("Feuil1").Range("B10:B50")
For Each Cel In PlgSource
If Cel <> "" Then
Set C = PlgRech.Find(Cel)
If Not C Is Nothing Then Cel.Offset(, 1) = 1
End If
Next Cel
End Sub
Bonne journée