Extraction données / erreur d’exécution Autofill
Résolu/Fermé
Boriserge
Messages postés
4
Date d'inscription
mardi 2 janvier 2018
Statut
Membre
Dernière intervention
11 avril 2018
-
Modifié le 2 janv. 2018 à 16:13
yg_be Messages postés 22625 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 10 avril 2018 à 20:45
yg_be Messages postés 22625 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 10 avril 2018 à 20:45
A voir également:
- Extraction données / erreur d’exécution Autofill
- Erreur 0x80070643 - Guide
- Erreur d'execution 1004 - Forum Programmation
- Autofill vba ✓ - Forum Excel
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur d'execution 13 ✓ - Forum Programmation
3 réponses
yg_be
Messages postés
22625
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
1 461
2 janv. 2018 à 16:18
2 janv. 2018 à 16:18
bonjour, peux-tu partager ton fichier?
yg_be
Messages postés
22625
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
1 461
2 janv. 2018 à 16:26
2 janv. 2018 à 16:26
tu peux probablement éviter le message d'erreur en remplaçant
par
je ne sais pas si l'ensemble va bien fonctionner.
ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10))
par
If nbLignes > 0 Then ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10)) End If
je ne sais pas si l'ensemble va bien fonctionner.
yg_be
Messages postés
22625
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
1 461
10 avril 2018 à 20:45
10 avril 2018 à 20:45
as-tu progressé?