Erreur d'exécution '1004'
Aloubedi
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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.
A voir également:
- Erreur d'exécution '1004'
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
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
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
