Erreur 1004 VBA
JL00700
Messages postés
90
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une erreur 1004 lorsque je valide le formulaire de saisie que j'ai réalisé à l'aide Excel. Lequel doit alimenter une feuille nommée "Janvier".
Voici mes actions :
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim colonne As Integer
Dim derligne As Integer
'derligne devient la ligne qui suit la dernière valeur du tableau
derligne = Sheets("Janvier").Range("C65000").End(x1Up).Row + 1
'balaye les contrôles un par un avec le For...Next'
For Each ctrl In UserForm1.Controls
'La valeur de "colonne' est égale à la valeur du Tag du contrôle
colonne = Val(ctrl.Tag)
'si la valeur du Tag > 0 l'insertion n° ligne et n° colonne est une
'cellule qui contiendra la valeur "ctrl" c'est à dire celle contenue
'dans le contrôle.
If colonne > 0 Then Sheets("Janvier").Cells(derligne, colonne) = ctrl
'Next on passe au contrôle suivant.
Next
End
Merci de votre aide.
Cordialement.
J'ai une erreur 1004 lorsque je valide le formulaire de saisie que j'ai réalisé à l'aide Excel. Lequel doit alimenter une feuille nommée "Janvier".
Voici mes actions :
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim colonne As Integer
Dim derligne As Integer
'derligne devient la ligne qui suit la dernière valeur du tableau
derligne = Sheets("Janvier").Range("C65000").End(x1Up).Row + 1
'balaye les contrôles un par un avec le For...Next'
For Each ctrl In UserForm1.Controls
'La valeur de "colonne' est égale à la valeur du Tag du contrôle
colonne = Val(ctrl.Tag)
'si la valeur du Tag > 0 l'insertion n° ligne et n° colonne est une
'cellule qui contiendra la valeur "ctrl" c'est à dire celle contenue
'dans le contrôle.
If colonne > 0 Then Sheets("Janvier").Cells(derligne, colonne) = ctrl
'Next on passe au contrôle suivant.
Next
End
Merci de votre aide.
Cordialement.
A voir également:
- Erreur 1004 VBA
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
