MACRO EXCEL - erreur objet
Résolu/Fermé
A voir également:
- MACRO EXCEL - erreur objet
- Erreur 0x80070643 - Guide
- Liste déroulante excel - Guide
- Vente objet occasion entre particulier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
6 mai 2011 à 15:06
6 mai 2011 à 15:06
Bonjour,
Il n'est pas facile de répondre sans connaître la version d'Excel et sans exemple de fichier qui plante !
Je suppose que tu utilises une version 2007 ou 2010 (avec plus de 256 colonnes), sinon c'est dèja une cause d'erreur.
Comme le dit david_wklw selon le cas, le contenu de la feuille B en A1:A7 peut provoquer une erreur.
Par contre le code suivant est erroné :
Il conviendrait d'écrire :
Il n'est pas facile de répondre sans connaître la version d'Excel et sans exemple de fichier qui plante !
Je suppose que tu utilises une version 2007 ou 2010 (avec plus de 256 colonnes), sinon c'est dèja une cause d'erreur.
Comme le dit david_wklw selon le cas, le contenu de la feuille B en A1:A7 peut provoquer une erreur.
Par contre le code suivant est erroné :
If Sheets(Q).Range(2, c).Value <> Q And "ok" Then Sheets(Q).Range(2, c).EntireColumn.Delete
Il conviendrait d'écrire :
If Sheets(Q).Cells(2, c).Value <> Q And Sheets(Q).Cells(2, c).Value <>"ok" Then Sheets(Q).Cells(2, c).EntireColumn.Delete
david_wklw
Messages postés
41
Date d'inscription
jeudi 15 juillet 2010
Statut
Membre
Dernière intervention
29 juin 2012
4
6 mai 2011 à 14:38
6 mai 2011 à 14:38
C'est ca qui est faux ?
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
Il y a noté quoi dans la feuille B, cellule A1 ?
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
Il y a noté quoi dans la feuille B, cellule A1 ?
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 305
6 mai 2011 à 14:54
6 mai 2011 à 14:54
Bonjour,
tu dois réécrire deux fois ta première condition dans ton IF, c'est à dire que tu teste si ta valeur est différente de Q et si ta valeur est différente de OK. Du coup ça donne :
Cordialement.
tu dois réécrire deux fois ta première condition dans ton IF, c'est à dire que tu teste si ta valeur est différente de Q et si ta valeur est différente de OK. Du coup ça donne :
If Sheets(Q).Range(2,c).Value <> Q And Sheets(Q).Range(2,c).Value <> "ok" Then
Cordialement.
david_wklw
Messages postés
41
Date d'inscription
jeudi 15 juillet 2010
Statut
Membre
Dernière intervention
29 juin 2012
4
Modifié par david_wklw le 6/05/2011 à 15:09
Modifié par david_wklw le 6/05/2011 à 15:09
LEs range(2, c) c quand même byzarre non ?
C pour quoi ?
Patrice a tout dit je crois ^^
C pour quoi ?
Patrice a tout dit je crois ^^
6 mai 2011 à 15:10
Au passage quelle est la différence entre le deux?
Merci encore
6 mai 2011 à 15:11
6 mai 2011 à 15:13
6 mai 2011 à 15:16
Mais bon... merci. A partir de maintenant je ferai la différence !
Modifié par Patrice33740 le 6/05/2011 à 15:18