Erreur 438 encore et toujours
Résolu/Fermé
Feudora
Messages postés
81
Date d'inscription
mardi 5 juillet 2016
Statut
Membre
Dernière intervention
2 décembre 2016
-
Modifié par Feudora le 4/11/2016 à 11:48
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 7 nov. 2016 à 09:39
Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 7 nov. 2016 à 09:39
A voir également:
- Erreur 438 encore et toujours
- Erreur 1004 vba ✓ - Forum VB / VBA
- Erreur 1000 france tv - Forum MacOS
- Youtube une erreur s'est produite ✓ - Forum YouTube
- Free erreur 38 ✓ - Forum Mobile
- Erreur 80072efe ✓ - Forum Windows 7
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 4/11/2016 à 13:46
Modifié par f894009 le 4/11/2016 à 13:46
Bonjour,
.Sheets("results").Cells.Find
La vous obtenez "TIME" dans ColB
Si vous voulez le numero de colonne
.Sheets("results").Cells.Find
La vous obtenez "TIME" dans ColB
ColB = Workbooks(FichierSource).Sheets("results").Cells.Find(What:="TIME", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext) 'la ligne que pointe le debogage
Si vous voulez le numero de colonne
ColB = Workbooks(FichierSource).Sheets("results").Cells.Find(What:="TIME", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column 'la ligne que pointe le debogage
4 nov. 2016 à 13:47
Merci !
4 nov. 2016 à 13:51
derligB = Workbooks(FichierSource).Sheets("results").Range(Cells(Rows.Count, ColB)).End(xlUp).Row 'TempsCela vient il du Rows.count?
4 nov. 2016 à 13:59
Quelle ligne avez vous prise pour ColB= , apparemment la premiere et comme il vous faut le numero de colonne, faut prendre la deuxieme avec Column
4 nov. 2016 à 14:08
ColB = Workbooks(FichierSource).Sheets("results").Cells.Find(What:="TIME", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext).Column derligB = Workbooks(FichierSource).Sheets("results").Range(Cells(Rows.Count, ColB)).End(xlUp).Row 'Temps4 nov. 2016 à 14:31
derligB = Workbooks(FichierSource).Sheets("results").Columns(ColB).Cells(Rows.Count, 1).End(xlUp).Row 'Temps