D
divad
Guest
Bonjour,
je me creuse la tête sur un code qui ne fonctionne pas, et je ne comprends pas pourquoi.
La solution est, j'imagine, simple puisque je suis débutant.
Pour information, je copie des cellules depuis l'onglet "Añadir TM". Par la suite, je me rends dans l'onglet "RRHH" pour insérer une ligne à un tableau, puis coller les informations copiées du premier onglet.
Jusque là, tout va bien.
Mais par la suite, je veux copier une cellule, toujours dans l'onglet RRHH, et la copier plusieurs fois, dans cette même feuille.
Et c'est là que j'ai une erreur, de temps d'execution dépassé.
C'est la premiere des 4 dernieres lignes qui m'est surligné.
A noter que ces 4 lignes viennent d'un copier coller de l'enregistreur de macro.
Pensez-vous pouvoir m'aider?
Merci d'avance!
D
je me creuse la tête sur un code qui ne fonctionne pas, et je ne comprends pas pourquoi.
La solution est, j'imagine, simple puisque je suis débutant.
Pour information, je copie des cellules depuis l'onglet "Añadir TM". Par la suite, je me rends dans l'onglet "RRHH" pour insérer une ligne à un tableau, puis coller les informations copiées du premier onglet.
Jusque là, tout va bien.
Mais par la suite, je veux copier une cellule, toujours dans l'onglet RRHH, et la copier plusieurs fois, dans cette même feuille.
Et c'est là que j'ai une erreur, de temps d'execution dépassé.
C'est la premiere des 4 dernieres lignes qui m'est surligné.
A noter que ces 4 lignes viennent d'un copier coller de l'enregistreur de macro.
Code:
'Copia de los datos de la nueva persona
Sheets("Añadir TM").Select
Range("e6:g6").Select
Selection.Copy
'Hoja activa : RRHH
Sheets("RRHH").Select
'Selección de la primera linea vacia
celrrhh = 5
While Not Sheets("RRHH").Range("a" & celrrhh & "").Value = ""
celrrhh = celrrhh + 1
Wend
'Insersión de una linea y pega de los datos
ActiveSheet.Rows(celrrhh & ":" & celrrhh).Select
Selection.Insert Shift:=xlDown
'copiar el AT en las otras columnas
[COLOR="Red"][B]Range("C83").Select[/B][/COLOR]
Selection.Copy
Range("D88:J88").Select
ActiveSheet.Paste
End SubPensez-vous pouvoir m'aider?
Merci d'avance!
D
Dernière modification par un modérateur: