coder une formule par rapport à un tableau.

Version imprimable

22/10/2021, 10h00
renaultt2

coder une formule par rapport à un tableau.
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:

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
22/10/2021, 10h07
BENNASR

Bonjour
sans VBA :

Citation:

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

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

Code:

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

22/10/2021, 11h55
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

remplacer activcell par j2

Code:

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

22/10/2021, 12h32
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
22/10/2021, 12h35
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
22/10/2021, 13h21
renaultt2

1 pièce(s) jointe(s)

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

1 pièce(s) jointe(s)

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

Code:

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

25/10/2021, 12h57
renaultt2
Merci, cela fonctionne bien.
Cependant je ne veux pas copier une cellule mais 3 cellules
donc comment coder ?
Code:

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 ?

Code:

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