Visual basic erreur de Range
Résolu
taly91
Messages postés
8
Date d'inscription
Statut
Membre
-
taly91 Messages postés 8 Date d'inscription Statut Membre -
taly91 Messages postés 8 Date d'inscription Statut Membre -
Bonjour,
J'ai l'erreur d'éxecution '1004' :
La méthode 'Range' de l'objet '_Global' a échoué
et voilà ce que j'ai fait
If Option_oui.Value = True Then
If OptionButton10.Value = True Then
Range("AZ") = "oui"ElseIf OptionButton11.Value = True Then
Range("AZ") = "non"
Else
temp = MsgBox("VOTRE ROUE DE SECOURS EST-ELLE EN ETAT? - Impossible d'enregistrer sans cette information" _
, vbExclamation, "Elément manquant")
ActiveSheet.Rows(2).Delete
ComboBox21.SetFocus
Exit Sub
End If
End If
quelle est mon erreur je ne comprend pas?
merci
J'ai l'erreur d'éxecution '1004' :
La méthode 'Range' de l'objet '_Global' a échoué
et voilà ce que j'ai fait
If Option_oui.Value = True Then
If OptionButton10.Value = True Then
Range("AZ") = "oui"ElseIf OptionButton11.Value = True Then
Range("AZ") = "non"
Else
temp = MsgBox("VOTRE ROUE DE SECOURS EST-ELLE EN ETAT? - Impossible d'enregistrer sans cette information" _
, vbExclamation, "Elément manquant")
ActiveSheet.Rows(2).Delete
ComboBox21.SetFocus
Exit Sub
End If
End If
quelle est mon erreur je ne comprend pas?
merci
1 réponse
-
SAlut,
Il manque quelque chose ici : Range("AZ"). Que veux tu faire? Mettre "oui" en Az1? AZ2? AZ première cellule vide?
Pour AZ1 : Range("AZ1")
Pour AZ2 : Range("AZ2")
Pour la première cellule vide dans la colonne AZ :Dim lig as Integer lig = Range("AZ65536").End(xlUp).Offset(1, 0).Row Range("AZ" & lig)
A toi de jouer maintenant...
