MACRO EXCEL - erreur
BipBip
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour à tous,
j'ai fait un code pour copier la feuille "A", la renommer par une valeur contenue dans la feuille "B" et ensuite sur cette nouvelle feuille supprimer les colonnes dont la valeur en ligne 2 est différente de Qx ou "ok"...
J'ai une erreur à la ligne en gras, du type "erreur définie par l'application ou par l'objet"
Je ne sais plus quoi faire ! Merci d'avance poyur votre aide!
Salutations
Sub Copie()
Dim i, z, c
z = 7
Q = "Q" & i
For i = 1 To z
Q = "Q" & i
Sheets("A").Activate
Sheets("A").Copy after:=Sheets("B")
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
For c = 480 To 159 Step -1
If Sheets(Q).Range(2, c).Value <> Q And "ok" Then
Sheets(Q).Range(2, c).EntireColumn.Delete
End If
Next c
Next i
End Sub
j'ai fait un code pour copier la feuille "A", la renommer par une valeur contenue dans la feuille "B" et ensuite sur cette nouvelle feuille supprimer les colonnes dont la valeur en ligne 2 est différente de Qx ou "ok"...
J'ai une erreur à la ligne en gras, du type "erreur définie par l'application ou par l'objet"
Je ne sais plus quoi faire ! Merci d'avance poyur votre aide!
Salutations
Sub Copie()
Dim i, z, c
z = 7
Q = "Q" & i
For i = 1 To z
Q = "Q" & i
Sheets("A").Activate
Sheets("A").Copy after:=Sheets("B")
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
For c = 480 To 159 Step -1
If Sheets(Q).Range(2, c).Value <> Q And "ok" Then
Sheets(Q).Range(2, c).EntireColumn.Delete
End If
Next c
Next i
End Sub
A voir également:
- MACRO EXCEL - erreur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour,
c'est normal.
parce que ton nom de feuille, c'est :
Worksheets("B").Range("A" & i).Value
et en suite tu lui demandes sélectionner la feuille
"Q" & i
La modification est la suivante :
Sub Copie()
Dim i, z, c
z = 7
Q = "Q" & i
For i = 1 To z
Q = "Q" & i
Sheets("A").Activate
Sheets("A").Copy after:=Sheets("B")
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
b=activesheet.name
For c = 480 To 159 Step -1
If Sheets(b).Range(2, c).Value <> Q And "ok" Then
Sheets(b).Range(2, c).EntireColumn.Delete
End If
Next c
Next i
End Sub
c'est normal.
parce que ton nom de feuille, c'est :
Worksheets("B").Range("A" & i).Value
et en suite tu lui demandes sélectionner la feuille
"Q" & i
La modification est la suivante :
Sub Copie()
Dim i, z, c
z = 7
Q = "Q" & i
For i = 1 To z
Q = "Q" & i
Sheets("A").Activate
Sheets("A").Copy after:=Sheets("B")
ActiveSheet.Name = Worksheets("B").Range("A" & i).Value
b=activesheet.name
For c = 480 To 159 Step -1
If Sheets(b).Range(2, c).Value <> Q And "ok" Then
Sheets(b).Range(2, c).EntireColumn.Delete
End If
Next c
Next i
End Sub
