Exclure les valeurs d'une liste à partir de la plage des valeurs
zk
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'essaye de faire un macro simplissime mais clairement je manque des connaiassances basique dans ce domaine.
Dans la colonne A j'ai une liste des valeurs, il me faut exclure de cette liste les valeurs de la colonnes B et remplacer les cellules de A identiques avec B par 0.
ce que j'ai fait, mais ça fait rien:
Merci!
J'essaye de faire un macro simplissime mais clairement je manque des connaiassances basique dans ce domaine.
Dans la colonne A j'ai une liste des valeurs, il me faut exclure de cette liste les valeurs de la colonnes B et remplacer les cellules de A identiques avec B par 0.
ce que j'ai fait, mais ça fait rien:
Sub recherche()
Dim i, j As Integer
i = 1
j = 1
Do While Cells(i, 1).Value <> ""
Do While Cells(j, 2).Value <> ""
If (Cells(i, 1).Value = Cells(j, 2).Value) Then
Cells(i, 1).Value = 0
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
Merci!
A voir également:
- Exclure les valeurs d'une liste à partir de la plage des valeurs
- Liste déroulante excel - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. ✓ - Forum Excel
- Créer une vidéo à partir de photos - Guide
1 réponse
Bonjour,
Entre chaque boucle sur i, il faut réinitialiser j...
De plus, lorsque tu déclares tes variables il faut toutes les typer.
Sinon :
Donc :
Entre chaque boucle sur i, il faut réinitialiser j...
De plus, lorsque tu déclares tes variables il faut toutes les typer.
Sinon :
Dim i, j As Integernous donne :
Dim i As Variant, j As Integer.
Donc :
Sub recherche()
Dim i As Integer, j As Integer
i = 1
Do While Cells(i, 1).Value <> ""
j = 1
Do While Cells(j, 2).Value <> ""
If (Cells(i, 1).Value = Cells(j, 2).Value) Then
Cells(i, 1).Value = 0
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
