Erreur d'exécution '424': Objet requis
Hugo
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 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.
1 réponse
-
BOnjour
sans boucles
non testé sans le classeur du problèmeOption 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
-
Ca marche, merci beaucoup!
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- OUi pour les 2 questions mais ta demande est floue
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
-
