Macro avec conditions

Bonjour,

j'aimerais crée une macro qui marcherais avec un bouton qui dit en gros :

SI J5="Lol" alors B17 = Range("B17").Value = Int(3 * Rnd + 1) mais SI B16="Non" alors B17 = Range("B10").Value = Int(3 * Rnd + 1)


Je voudrais aussi savoir si c'est possible sur une macro de rajouter une sorte de menu déroulante avec choix :

Par exemple si je clique sur bouton1 alors cela m'affiche fenêtre avec Oui ou Non si je prend Oui cela fait quelque chose, si je prend non cela fait autre chose.


Dans l'attente de vos réponses.

Cordialement

Citation:

---

Envoyé par SirFurtif

... Je voudrais aussi savoir si c'est possible sur une macro de rajouter une sorte de menu déroulante avec choix :

Par exemple si je clique sur bouton1 alors cela m'affiche fenêtre avec Oui ou Non si je prend Oui cela fait quelque chose, si je prend non cela fait autre chose.

---

Oui c'est possible grace au MSGBOX de type VBouinon

regarde dans l'aide par F1 tout est expliqué

J'ai résolu cette partie merci :)

me reste la première partie :

Citation:

---

Envoyé par SirFurtif

Bonjour,

j'aimerais crée une macro qui marcherais avec un bouton qui dit en gros :

SI J5="Lol" alors B17 = Range("B17").Value = Int(3 * Rnd + 1) mais SI B16="Non" alors B17 = Range("B10").Value = Int(3 * Rnd + 1)

---

Quelqu'un aurait une solution a ce problème s'il vous plait ?

tes Si sont des if en VBA

exemple :

si J5="lol" alors ....

devient

if range("J5").value = "lol" then
....
end if

essai de la faire

et on te corrigera après

A+

Merci c'est exactement le genre de réponse que je voulais.

Je vous tiens au courant.

Pour le moment j'y arrive sauf a mettre une condition mais

Car actuellement il fait les conditions IF, ce que j'aimerais faire c'est plus SI D10=non tu fait X mais si J5 = mouahh alors tu fait autre chose.

J'ai pensé utiliser ELSE mais il me met des erreurs (je cherche encore)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Identification() Select Case MsgBox("Identification reussi?", vbYesNo, "Identification de plante") Case vbYes Dim R As Worksheet 'déclare la variable R (onglet Recherche) Dim W As Worksheet 'déclare la variable W (onglet Wythrin) Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)   Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C14").Value) Set R = Sheets("Recherche") 'définit l'onglet R Set W = Sheets("Wythrin") 'définit l'onglet W Set DEST = W.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) If Ch Is Nothing Then R.Range("C14").Copy If Ch Is Nothing Then DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True   Case vbNo Range("D10").Value = "non" If Range("J5").Value = "Mouahhhhhhhh" Then Range("E11").Value = Int(3 * Rnd + 1) If Range("D10").Value = "non" Then Range("E10").Value = Int(3 * Rnd + 1)   End Select End Sub

---

Merci de votre aide j'ai trouvé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub Identification() Select Case MsgBox("Identification reussi?", vbYesNo, "Identification de plante") Case vbYes Dim R As Worksheet 'déclare la variable R (onglet Recherche) Dim W As Worksheet 'déclare la variable W (onglet Wythrin) Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)   Set Ch = Worksheets("Wythrin").Range("A1:A1000").Find(Worksheets("Recherche").Range("C14").Value) Set R = Sheets("Recherche") 'définit l'onglet R Set W = Sheets("Wythrin") 'définit l'onglet W Set DEST = W.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) If Ch Is Nothing Then R.Range("C14").Copy If Ch Is Nothing Then DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True   Case vbNo If Range("J5").Value = "Mouahhhhhhhh" Then Range("E11").Value = Int(3 * Rnd + 1) Else 'Si faux Range("D10").Value = "non" End If If Range("D10").Value = "non" Then Range("E10").Value = Int(3 * Rnd + 1)   End Select End Sub

---