Discussion :

[gus02]

Bonjour j'ai un petit souci sa fait quelque temps que je n'ai plus manipulé le VB et je bloque sur un problème de gestion de feuille.

Pour mieux me faire comprendre voici mon algo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
x=1
 
tant que cellule Bx+1 <> ""
x=x+1
 
Si (cellule Bx(feuille1)) =(cellule A1 a 164(feuille2))
  Als
      (cellule Hx(feuille1)) = "DD"
sinon
       (cellule Hx(feuille1)) = "ab"
fin Si
 
fin tant que

Voila je pense que cela est compréhensible. Mais je vais bien me replonger dedans ce n'est pas très dur.

Merci a tous et a toutes

[mentat]

Bonjour gus02

j'ai testé chez moi ça marche, mais je suis débutant j'espère avoir compris ta recherche...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim j As Long
  j = 1
While Worksheets("feuille1").Range("B" & j).Value <> ""
   If Worksheets("feuille1").Range("B" & j).Value = Worksheets("feuille2").Range("A" & j).Value Then
    Worksheets("feuille1").Range("H" & j).Value = "DD"
   Else
    Worksheets("feuille1").Range("H" & j).Value = "ab"
   End If
j = j + 1
Wend

Bon courage et bon usage.

[gus02]

Salut et merci

C'est presque sa mais non ! lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim j As Long
  j = 1
While Worksheets("feuille1").Range("B" & j).Value <> ""
   If Worksheets("feuille1").Range("B" & j).Value = Worksheets("feuille2").Range("A" & j).Value Then
    Worksheets("feuille1").Range("H" & j).Value = "DD"
   Else
    Worksheets("feuille1").Range("H" & j).Value = "ab"
   End If
j = j + 1
Wend

Ce que j'ai souligné dans le code c'est la que sa bloque en faite sur me feuille 2 j'ai une liste bien definie et a chaque foi il faut tout controlé.
J'ai du mal a expliqué mais sur la feuille 2 a chaque foi je doit verifié si il n'y a pas equivalence c'est sur 164 cellule

[mercatog]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub Verif()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim LastLig As Long
Dim c As Range
 
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
With ws1
    LastLig = .Cells(.Rows.Count, 2).End(xlUp).Row
    For i = 2 To LastLig
        Set c = ws2.Range("A1:A" & ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row).Find(.Range("B" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                .Range("H" & i).Value = "DD"
            Else
                .Range("H" & i).Value = "ab"
            End If
        Set c = Nothing
    Next i
End With
Set ws1 = Nothing
Set ws2 = Nothing
End Sub

[gus02]

Merci a tous pour vos réponses alors j'ai fait un petit mélange de code et j'ai aussi changé ma façon d'importer mes données sous excel ce qui ma permis d'établir un code plus simple merci !!!