Erreur d'exécution '1004'
Aloubedi
Messages postés
47
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonsoir/Bonjour à tous!
En exécutant un code VBA pour excel, j'ai eu le message d'erreur suivant.
Erreur d'exécution '1004'
La méthode 'Range' de l'objet'_Worksheet' a échoué
Merci de bien vouloir d'aider à comprendre ce problème.
En exécutant un code VBA pour excel, j'ai eu le message d'erreur suivant.
Erreur d'exécution '1004'
La méthode 'Range' de l'objet'_Worksheet' a échoué
Merci de bien vouloir d'aider à comprendre ce problème.
2 réponses
-
-
Bonjour/bonsoir!
Le probleme venait du bout de code en gras ci-dessous. je l'ai remplacé par la boucle for qui vient juste après et ça marche sans msg d'erreur. J'aimerais toutefois le probleme sur la partie en gras. MERCI.
With wks
For i = 2 To derligne
If cmbuser = .Range("A" & i).Value Then
.Range("A" & i).Value = user
.Range("B" & i).Value = mdp
' .Range(Cells(i, 3), Cells(i, 14)).ClearContents (Remplacé par la boucle for qui suit)
'__________________________________________________________
For k = 3 To 14
.Cells(i, k).Value = ""
Next k
'_____________Et puis plus de messages d'erreur__________________________________________________
For j = 2 To 13
If Me.Controls("checkbox" & j) = True Then
.Cells(i, j + 1).Value = "X"
End If
Next j
MsgBox "Le compte " & user & " a été modifié avec succès"
Unload Me
UserForm1.Show
Exit For
End If
Next i
End With
