Exclure les valeurs d'une liste à partir de la plage des valeurs

Fermé

zk - Modifié par pijaku le 13/11/2014 à 10:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 nov. 2014 à 10:10

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:

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:

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
13 nov. 2014 à 10:10

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 :

Dim i, j As Integer

nous 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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Annuaire portable gratuit à partir d'un nom

ou sont les bananes ?

liste de noms par ordre alphabétique

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters