D
David
Guest
Bonjour à tous,
Je n'arrive pas a concrétiser ma macro.
J'aimerais que si en "A1" il y a du texte, une MsgBox s'ouvre avec ok ou non et que le reste de la macro s'execute.
Mon pb, c'est le début de la macro, je n'arrive pas à comprendre la selection de ma cellule A1 ?
Merci de votre aide,
David.
Sub ExecutExpertise()
Dim vCellule, vRéponse
For Each vCellule In Selection
If IsEmpty(vCellule)=TrueThen
vRéponse = MsgBox("Le véhicule a t'il été expertisé ?", vbYesNo + vbQuestion)
If vRéponse = vbYes Then
vRéponse = ActiveCell.FormulaR1C1 = "CABINET JR EXPERTISES"
Range("B29:I29").Select
ActiveCell.FormulaR1C1 = "12 RUE DES TILLEULS"
Range("F30").Select
ActiveCell.FormulaR1C1 = "78960"
Range("G30:I30").Select
ActiveCell.FormulaR1C1 = "VOISINS LE BTX"
Else
vRéponse = ActiveCell.FormulaR1C1 = ""
Range("B29:I29").Select
ActiveCell.FormulaR1C1 = ""
Range("F30").Select
ActiveCell.FormulaR1C1 = ""
Range("G30:I30").Select
ActiveCell.FormulaR1C1 = ""
End If
Next
End Sub
Je n'arrive pas a concrétiser ma macro.
J'aimerais que si en "A1" il y a du texte, une MsgBox s'ouvre avec ok ou non et que le reste de la macro s'execute.
Mon pb, c'est le début de la macro, je n'arrive pas à comprendre la selection de ma cellule A1 ?
Merci de votre aide,
David.
Sub ExecutExpertise()
Dim vCellule, vRéponse
For Each vCellule In Selection
If IsEmpty(vCellule)=TrueThen
vRéponse = MsgBox("Le véhicule a t'il été expertisé ?", vbYesNo + vbQuestion)
If vRéponse = vbYes Then
vRéponse = ActiveCell.FormulaR1C1 = "CABINET JR EXPERTISES"
Range("B29:I29").Select
ActiveCell.FormulaR1C1 = "12 RUE DES TILLEULS"
Range("F30").Select
ActiveCell.FormulaR1C1 = "78960"
Range("G30:I30").Select
ActiveCell.FormulaR1C1 = "VOISINS LE BTX"
Else
vRéponse = ActiveCell.FormulaR1C1 = ""
Range("B29:I29").Select
ActiveCell.FormulaR1C1 = ""
Range("F30").Select
ActiveCell.FormulaR1C1 = ""
Range("G30:I30").Select
ActiveCell.FormulaR1C1 = ""
End If
Next
End Sub