Erreur d'exécution '424': Objet requis
Hugo
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis débutant et je souhaite pour commencer à copier une feuille (Evenements) dans une autre (Indispo).
Je vous donne mon code en espérant que vous puissiez m'aider.
"
Sub calcul_indispo()
Dim i As Integer
Dim j As Integer
For i = 1 To Evenements.Cells(3761, 1).End(x1Up).Row
For j = 1 To Evenements.Cells(1, 20).End(x1ToLeft).Column
Indispo.Cells(i, j).Value = Evenements.Cells(i, j).Value
Next j
Next i
End Sub
Public Sub copier_element()
calcul_indispo
End Sub
"
L'erreur détecté est une erreur 424 Objet requis.
Je vous remercie par avance.
Je suis débutant et je souhaite pour commencer à copier une feuille (Evenements) dans une autre (Indispo).
Je vous donne mon code en espérant que vous puissiez m'aider.
"
Sub calcul_indispo()
Dim i As Integer
Dim j As Integer
For i = 1 To Evenements.Cells(3761, 1).End(x1Up).Row
For j = 1 To Evenements.Cells(1, 20).End(x1ToLeft).Column
Indispo.Cells(i, j).Value = Evenements.Cells(i, j).Value
Next j
Next i
End Sub
Public Sub copier_element()
calcul_indispo
End Sub
"
L'erreur détecté est une erreur 424 Objet requis.
Je vous remercie par avance.
A voir également:
- Erreur d'exécution '424': Objet requis
- 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
1 réponse
BOnjour
sans boucles
non testé sans le classeur du problème
sans boucles
non testé sans le classeur du problème
Option Explicit
'--------
Sub calcul_indispo()
Dim Derlig As Integer, Dercol As Byte, Tablo
With Sheets("evenements")
Derlig = .Cells(3761, 1).End(x1Up).Row
Dercol = Cells(1, 20).End(x1ToLeft).Column
Tablo = .Range(Cells(1, 1), .Cells(Derlig, Dercol))
End With
Sheets("indispo").Range("A1").Resize(Derlig, Dercol) = Tablo
End Sub
Maintenant est-ce qu'il est possible de prendre juste quelques colonnes et quelques lignes de ma feuille Evenements pour les copier dans ma feuille Indispo? Afin de trier ce qu'il y a d'utile.
J'ai une deuxième question si ça ne vous dérange pas.
Comment, si la première question est faisable, faire pour copier les lignes dont j'ai besoin en fonction d'une valeur qu'il y a dans une colonne? Admettons que ma colonne est remplie de nombres entre 1 et 100 étalés sur 3000 lignes et que je cherche à copier seulement les lignes où les nombres 24 et 25 apparaissent par exemple.
Je vous remercie d'avance.
Hugo
par ex
de prendre juste quelques colonnes quelques ne veut rien dire en VBA:: colonnes continues, discontinues, quelles colonnes (A B T AA) ?
au besoin
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente