Erreur d'exécution '1004'
Fermé
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
-
8 août 2018 à 00:58
yg_be Messages postés 22623 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mars 2024 - 19 août 2018 à 20:20
yg_be Messages postés 22623 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mars 2024 - 19 août 2018 à 20:20
A voir également:
- Erreur d'exécution '1004'
- Erreur 0x80070643 - Guide
- Erreur vidéo freebox ✓ - Forum TV & Vidéo
- Erreur 38 free ✓ - Forum Mobile
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur d'execution 13 ✓ - Forum Programmation
2 réponses
rafaledu43
Messages postés
160
Date d'inscription
samedi 29 octobre 2011
Statut
Membre
Dernière intervention
8 août 2018
5
8 août 2018 à 04:05
8 août 2018 à 04:05
Bonjour,
Envoi nous ton code ou ton fichier ;)
Envoi nous ton code ou ton fichier ;)
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
10 août 2018 à 00:57
10 août 2018 à 00:57
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
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
10 août 2018 à 01:00
10 août 2018 à 01:00
J'aimerais toutefois COMPRENDRE le probleme sur la partie en gras. MERCI.
yg_be
Messages postés
22623
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 mars 2024
1 461
>
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
19 août 2018 à 20:20
19 août 2018 à 20:20
bonjour, as-tu essayé:
.Range(.Cells(i, 3), .Cells(i, 14)).ClearContents