Discussion :

[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)


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

[Igloobel]

... 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é

[SirFurtif]

J'ai résolu cette partie merci

me reste la première partie :

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)

[SirFurtif]

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

[Igloobel]

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+

[SirFurtif]

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

Je vous tiens au courant.

[SirFurtif]

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 :

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
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