Discussion :

[renaultt2]

Bonjour

J'ai un tableau de n ligne et 4 colonnes.
Je veux dans la colonne 3 savoir si la cellule active correspond à une cellule dans un autre tableau.
Donc je veux faire :
Si la cellule active se trouve dans le tableau E2 à E15 alors je fais .....

Code :

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

1
2
3
4
5
6
7
8
9
  For i = 1 To 41
       If ActiveCell = "........" Then
       .......
 
      Else
      ActiveCell.Cells(2, 1).Select
 
     End If
  Next

Sinon je passe à la cellule de dessous.
Comment je peux coder cela ?
Merci

[BENNASR]

Bonjour
sans VBA :

=SI(NB.SI($C$1:$C1;C1)>NB.SI($E$1:$E$6;C1);C1;"")

[BENNASR]

avec VBA
Cel.column dans le cas ou tu cherches dans plus qu'une colonne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim Plage As Range
Dim Cel As Range
Set Plage = Sheets("Feuil1").Range("E2:E15")
For Each Cel In Plage
If Cel.Value = ActiveCell.Value Then
L = Cel.Row
C = Cel.Column
MsgBox ("La valeur de la cellule active se trouve en ligne : " & L & "   la colonne est :  " & C)
End If
Next Cel
End Sub

[renaultt2]

merci mais cela ne me convient pas.
La cellule active se trouve en J2
Je veux vérifier si le contenu de la cellule J2 est dans le tableau E2 à E15.
Cordialement

[BENNASR]

remplacer activcell par j2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Plage As Range
Dim Cel As Range
Set Plage = Sheets("Feuil1").Range("E2:E15")
For Each Cel In Plage
If Cel.Value = Cells(2, "j") Then
L = Cel.Row
MsgBox ("La valeur de la cellule active se trouve en ligne : " & L)
End If
Next Cel
End Sub

[renaultt2]

Ce n'est pas bon.
Dans ton cas, CEL = la cellule de mon tableau.
Moi, je veux que CEL soit la cellule active.

Je veux que le contenu de J2 se trouve dans le tableau E2 à E15.

Si la condition est vrai, je vais copier la ligne
Si la condition est fausse, je vais à la ligne de dessous en J3.
Cordialement

[BENNASR]

un capture écran des données de départ (non confidentiel) et un exemple pour simuler le résultat souhaité ...personnellement j'arrive pas à comprendre la demande

[renaultt2]

Donc je suis en J2.
Je veux savoir si le contenu de J2 se trouve dans le tableau E2 à E15.
Non donc je passe à la ligne suivante (J3)
Si oui, je vais à la cellule B de ma ligne. (ans mon cas B9), et je copie cette ligne pour la mettre en L2
ainsi de suite
Cordialement

[BENNASR]

dans l'exemple la colonne E est vide contrairement à la demande
à tester

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
Sub test()
Dim Plage As Range
Dim C As Range
Dim derligE As Long
Dim derligJ As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligE = F.Range("E" & Rows.Count).End(xlUp).Row
derligJ = F.Range("J" & Rows.Count).End(xlUp).Row
Set Plage = F.Range("J2:J" & derligJ)
For i = 2 To derligE
Set C = Plage.Find(F.Cells(i, "E"), LookIn:=xlValues, lookat:=xlWhole)
     If Not C Is Nothing Then F.Cells(i, "L") = F.Cells(C.Row, "B")
Next i
End Sub

[renaultt2]

Merci, cela fonctionne bien.
Cependant je ne veux pas copier une cellule mais 3 cellules
donc comment coder ?

Code :

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

1
2
3
Set C = Plage.Find(F.Cells(i, "G"), LookIn:=xlValues, lookat:=xlWhole)
     If Not C Is Nothing Then F.Cells(i, "N") = F.Cells(C.Row, "B")
Next i

Je veux mettre B, C et D au lieu de seulemet B ?

[BENNASR]

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
Sub test()
Dim Plage As Range
Dim C As Range
Dim derligE As Long
Dim derligJ As Long
Dim F As Worksheet
Set F = Sheets("Feuil1")
derligE = F.Range("E" & Rows.Count).End(xlUp).Row
derligJ = F.Range("J" & Rows.Count).End(xlUp).Row
Set Plage = F.Range("J2:J" & derligJ)
For i = 2 To derligE
Set C = Plage.Find(F.Cells(i, "E"), LookIn:=xlValues, lookat:=xlWhole)
     If Not C Is Nothing Then 
      F.Cells(i, "L") = F.Cells(C.Row, "B")
      F.Cells(i, "M") = F.Cells(C.Row, "C")
      F.Cells(i, "N") = F.Cells(C.Row, "D")
   end if
Next i
End Sub