Erreur définie par l'application ou par l'objet
Résolu/Fermé
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
-
Modifié par Kuartz le 29/10/2015 à 09:35
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 29 oct. 2015 à 10:35
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 29 oct. 2015 à 10:35
A voir également:
- Erreur définie par l'application ou par l'objet
- Erreur 0x80070643 - Guide
- Vente objet occasion entre particulier - Guide
- Application gps sans internet - Guide
- Aucune application permettant d'ouvrir ce lien n'a été trouvée - Forum Mobile
- Comment recuperer whatsapp supprimé par erreur - Guide
1 réponse
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
Modifié par f894009 le 29/10/2015 à 10:34
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.