Microsoft 365 Vlookup sous condition

[eric72]

Bonjour à tous,
Petit tes avec un vlookup sous condition de "Vrai", sans réussite
Le code ne plante pas mais ne fonctionne pas!!!
Peut-être aurez-vous une petite idée.
Merci beaucoup pour le temps consacré.
Eric

 

[chris]

Bonjour

Edit

If Range("d" & I).Value = True

 

[eric72]

Bonsoir chris,
Merci beaucoup pour cette réponse ça fonctionne par contre ce sont les chiffres ou il n'y a pas vrai qui changent alors que j'aimerais que ça soit les chiffres ou il y VRAI
Avez-vous une idée
Merci
Eric

 

[job75]

Bonjour eric72, chris,

Vous avez mal vu, ce sont bien les nombres avec VRAI qui changent, ils prennent la valeur 5.

A+

 

[eric72]

Super merci 1000 fois

Bonjour

Edit

If Range("d" & I).Value = True

Bonjour Chris
j'ai essayé le même code avec FALSE et ça ne fonctionne pas , avez-vous une idée?
Merci encore
Bonne soirée
Eric

 

[eric72]

Oups désolé en reflechissant un peu j'ai trouvé
Bonne journée
Eric

 

[job75]

Bonjour eric72, le forum,

Au lieu de 2 conditions vous pouvez n'en utiliser qu'une :

If Range("d" & I).Formula = "FALSE" Then

Fonctionne quelle que soit la version Excel.

A+

 

[eric72]

Bonjour et Merci job75,
Je profite de votre gentillesse pour vous demander ce qui cloche dans ce code qui est sensé supprimer la ligne qui correspond au value de la textbox "NomPlante", ça ne supprime pas la ligne mais ça ne plante pas!!!

Private Sub BtSupprProduitBase_Click()
Dim question As Integer
Application.ScreenUpdating = False
Sheets("produit").Visible = True
Sheets("produit").Activate
Call unprotect

On Error Resume Next
If MsgBox("Êtes-vous certain de vouloir supprimer", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("produit").Rows(NomPlante.value).Delete
question = MsgBox("Voulez-vous Effectuer une autre Action", vbQuestion + vbYesNo, "Information")
If question = vbYes Then
Unload Me
UsfProduit.Show 'Fermer puis ouvrir permet d'effacer les données
Else
End If
Unload Me
End If
Sheets("produit").Visible = False
Call protect
On Error GoTo 0
End Sub
Merci beaucoup
Eric

 

[job75]

Non, relisez la Charte, le § 2.3 précise qu'une nouvelle demande doit faire l'objet d'un nouveau fil.

Tout ce que je peux vous suggérer c'est de retirer On Error Resume Next pour voir ce qui ne va pas.

 

[eric72]

Re bonjour,
merci d'ailleurs je me suis apercçu de mon erreur et j'ai crée un nouveau fil!!!
désolé
Bonne soirée
Eric