With Feuil2
.Range("G38").Copy
.Range("G11").PasteSpecial (xlPasteValues)
.Range("E13:I39").Delete Shift:=3DxlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With
With Feuil1
.Range("C21:H44").Delete Shift:=3DxlUp
.Range("P525:U547").Copy .Range("C525:H547")
.Range("A1").Select
End With
End Sub
Je ne sais pas pourquoi mais elle ne fonctionne pas. Ma feuille 1 est
renomm=E9e BNC et ma feuille 2 est renomm=E9e Royale. Est-ce la raison?
Si non, que dois-je faire?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Excel...lent
Salut,
Je pense que c'est parceque tu ne sélectionnes pas tes feuilles avant de les traiter.
Comme ceci : Feuil1.Select
Sub CC()
Feuil2.Select
With Feuil2 .Range("G38").Copy .Range("G11").PasteSpecial (xlPasteValues) .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
Feuil1.Select
With Feuil1 .Range("C21:H44").Delete Shift:=xlUp .Range("P525:U547").Copy .Range("C525:H547") .Range("A1").Select End With
End Sub
Essayes et dis-nous si ça fonctionne
Amicordialement.
Marc
Salut,
Je pense que c'est parceque tu ne sélectionnes pas tes feuilles avant de les
traiter.
Comme ceci : Feuil1.Select
Sub CC()
Feuil2.Select
With Feuil2
.Range("G38").Copy
.Range("G11").PasteSpecial (xlPasteValues)
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With
Feuil1.Select
With Feuil1
.Range("C21:H44").Delete Shift:=xlUp
.Range("P525:U547").Copy .Range("C525:H547")
.Range("A1").Select
End With
Je pense que c'est parceque tu ne sélectionnes pas tes feuilles avant de les traiter.
Comme ceci : Feuil1.Select
Sub CC()
Feuil2.Select
With Feuil2 .Range("G38").Copy .Range("G11").PasteSpecial (xlPasteValues) .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
Feuil1.Select
With Feuil1 .Range("C21:H44").Delete Shift:=xlUp .Range("P525:U547").Copy .Range("C525:H547") .Range("A1").Select End With
End Sub
Essayes et dis-nous si ça fonctionne
Amicordialement.
Marc
mboileau
Salut ma macro ne fonctionne toujours pas.
De plus, les lignes ne remontent pas correctement. Elles sont toujours décalées de quelques lignes. êtes -vous certain que le "with feuil2" est bon. Les indications .Range ne semblent pas bien fonctionner.
Merci Marie-Pierre
Salut ma macro ne fonctionne toujours pas.
De plus, les lignes ne remontent pas correctement. Elles sont toujours
décalées de quelques lignes. êtes -vous certain que le "with feuil2"
est bon. Les indications .Range ne semblent pas bien fonctionner.
De plus, les lignes ne remontent pas correctement. Elles sont toujours décalées de quelques lignes. êtes -vous certain que le "with feuil2" est bon. Les indications .Range ne semblent pas bien fonctionner.
Merci Marie-Pierre
Excel...lent
Salut Marie-Pierre,
Là ça me dépasse quelque peu. Mais je ne désespère pas qu'un des kadors du VBA qui sévissent sur ce forum ne vous apporte une réponse.
Désolé.
Cordialement
Marc
Salut Marie-Pierre,
Là ça me dépasse quelque peu. Mais je ne désespère pas qu'un des kadors du
VBA qui sévissent sur ce forum ne vous apporte une réponse.
Là ça me dépasse quelque peu. Mais je ne désespère pas qu'un des kadors du VBA qui sévissent sur ce forum ne vous apporte une réponse.
Désolé.
Cordialement
Marc
Francois L
Bonjour,
J'ai cette macro dans mon fichier excel:
Sub CC()
With Feuil2 .Range("G38").Copy .Range("G11").PasteSpecial (xlPasteValues) .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
With Feuil1 .Range("C21:H44").Delete Shift:=xlUp .Range("P525:U547").Copy .Range("C525:H547") .Range("A1").Select End With
End Sub
Je ne sais pas pourquoi mais elle ne fonctionne pas. Ma feuille 1 est renommée BNC et ma feuille 2 est renommée Royale. Est-ce la raison? Si non, que dois-je faire?
Bonjour,
Deux choses...
1 Il faut activer la feuille sur laquelle tu fais un Range.Select pour la cas ou ce n'est pas la feuille active lorsque tu exécutes ta macro.
2 Essaies d'utiliser une syntaxe de type Worksheets(1).Activate With ActiveSheet '.... pour référencer les feuilles par leur indice.
-- François L
Bonjour,
J'ai cette macro dans mon fichier excel:
Sub CC()
With Feuil2
.Range("G38").Copy
.Range("G11").PasteSpecial (xlPasteValues)
.Range("E13:I39").Delete Shift:=xlUp
.Range("R580:V605").Copy .Range("E580:I605")
.Range("A1").Select
End With
With Feuil1
.Range("C21:H44").Delete Shift:=xlUp
.Range("P525:U547").Copy .Range("C525:H547")
.Range("A1").Select
End With
End Sub
Je ne sais pas pourquoi mais elle ne fonctionne pas. Ma feuille 1 est
renommée BNC et ma feuille 2 est renommée Royale. Est-ce la raison?
Si non, que dois-je faire?
Bonjour,
Deux choses...
1 Il faut activer la feuille sur laquelle tu fais un Range.Select pour
la cas ou ce n'est pas la feuille active lorsque tu exécutes ta macro.
2 Essaies d'utiliser une syntaxe de type
Worksheets(1).Activate
With ActiveSheet
'....
pour référencer les feuilles par leur indice.
With Feuil2 .Range("G38").Copy .Range("G11").PasteSpecial (xlPasteValues) .Range("E13:I39").Delete Shift:=xlUp .Range("R580:V605").Copy .Range("E580:I605") .Range("A1").Select End With
With Feuil1 .Range("C21:H44").Delete Shift:=xlUp .Range("P525:U547").Copy .Range("C525:H547") .Range("A1").Select End With
End Sub
Je ne sais pas pourquoi mais elle ne fonctionne pas. Ma feuille 1 est renommée BNC et ma feuille 2 est renommée Royale. Est-ce la raison? Si non, que dois-je faire?
Bonjour,
Deux choses...
1 Il faut activer la feuille sur laquelle tu fais un Range.Select pour la cas ou ce n'est pas la feuille active lorsque tu exécutes ta macro.
2 Essaies d'utiliser une syntaxe de type Worksheets(1).Activate With ActiveSheet '.... pour référencer les feuilles par leur indice.
