Erreur définie par l'application ou par l'objet
Résolu/Fermé
Kuartz
Kuartz
- Messages postés
- 850
- Date d'inscription
- vendredi 13 février 2015
- Statut
- Membre
- Dernière intervention
- 15 février 2019
Kuartz
- Messages postés
- 850
- Date d'inscription
- vendredi 13 février 2015
- Statut
- Membre
- Dernière intervention
- 15 février 2019
A voir également:
- Erreur définie par l'application ou par l'objet
- Erreur definie par l'application ou l'objet ✓ - Forum - VB / VBA
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur 1004 Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
- Erreur1004 erreur définie par l'application ou par l'objet ✓ - Forum - Excel
1 réponse
f894009
Modifié par f894009 le 29/10/2015 à 10:34
- Messages postés
- 16610
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 6 juillet 2022
Modifié par f894009 le 29/10/2015 à 10:34
Bonjour,
le probleme vient que l'onglet EXPORT n'est pas actif
Deux solutions:
1/ comme pour "NATIONAL"
'ou (solution chere a pijaku)
le probleme vient que l'onglet EXPORT n'est pas actif
Deux solutions:
1/ comme pour "NATIONAL"
Sheets("EXPORT").Activate DL3 = Sheets("EXPORT").Cells(Application.Rows.Count, 2).End(xlUp).Row For Each D In Sheets("EXPORT").Range(Cells(AdresseTrouvee + 1, 1), Cells(DL3, 1)) If D.Interior.Color = RGB(128, 0, 128) Then Ligne3 = D.Row Range(Cells(AdresseTrouvee + 1, 1), Cells(Ligne3 - 1, 23)).Copy Sheets("JDA" & NumeroJDA).Cells(DL2, 1) Exit For End If Next
'ou (solution chere a pijaku)
With Sheets("EXPORT") DL3 = .Cells(Application.Rows.Count, 2).End(xlUp).Row For Each D In .Range(.Cells(AdresseTrouvee + 1, 1), .Cells(DL3, 1)) If D.Interior.Color = RGB(128, 0, 128) Then Ligne3 = D.Row .Range(.Cells(AdresseTrouvee + 1, 1), .Cells(Ligne3 - 1, 23)).Copy Sheets("JDA" & NumeroJDA).Cells(DL2, 1) Exit For End If Next End With
29 oct. 2015 à 10:35
Merci beaucoup pour l'info en tout cas.