Range("A5").Select

[Georgio]

Bonsoir le forum

Pourquoi la commande { Range("A5").Select } m'affiche une erreur ( La methode select de la classe range a échoué)
Je me remets à VBA mais cela commence mal
Donc SVP à vot' bon coeur

Merci

 

[Staple1600]

Re : Range("A5").Select

Bonsoir

Pourquoi les accolades?

 

[dixit]

Re : Range("A5").Select

bonsoir,
oui, ce sont certainement les accolades qui posent problème.
il n'y a jamais d'accolades ...

 

[Georgio]

Re Range("B5").Select

Bonjour à tout le monde

Je joins un fichier car je n'arrive pas à faire fonctionner le bouton Enregistrer ,la macro bloque sur {Range("B5").Select}
Je ne comprends pas pourtant c'est simple NON.

MERCI a vous

 

[Pierrot93]

Re : Re Range("B5").Select

Bonjour Georgio

a priori ce n'est pas ton "Range("B5").select" qui bogue, enfin si j'ai bien compris et si c'est la macro concernée, essaye le code ci dessous :

Sub Copie_feuille()
    Sheets("Prix vierge").Select
    Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
    Sheets("Recap").Select
    Range("B5:L5").Select
    Selection.Insert Shift:=xlDown
    Range("B5").Select
End Sub

bon après midi
@+

 

[Georgio]

Re Re Re Range ("B5")

SVP

Je ne comprends + Rien ,pourquoi mon bouton enregistrer ne marche pas

Merci à Pierrot93 mais je n'ai tj pas la solution

 

[Spitnolan08]

Re : Re Re Re Range ("B5")

Bonjour,

Pourrais tu arrêter de multiplier les fils pour un même sujet ?
Cela doit au moins être le 4ème...

Il y a un bouton répondre pour continuer sur le même!

Cordialement

 

[dixit]

Re : Re Re Re Range ("B5")

bonjour à tous,
à la place de Range("B5").Select, il faut essayer :
Sheets("Recap").Range("B5").Select
qui fonctionne.
je suppose qu'il y a une subtilité quelquepart.

 

[Georgio]

Re : Re Range("B5").Select

MERCI Pierrot93, mais si tu pouvais le mettre en application sur mon fichier et me le renvoyer je t'en serais grés car aprés l'avoir appliqué cela ne fonctionne pas
Merci aussi à DIXIT

Bonjour Georgio

a priori ce n'est pas ton "Range("B5").select" qui bogue, enfin si j'ai bien compris et si c'est la macro concernée, essaye le code ci dessous :

Sub Copie_feuille()
    Sheets("Prix vierge").Select
    Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
    Sheets("Recap").Select
    Range("B5:L5").Select
    Selection.Insert Shift:=xlDown
    Range("B5").Select
End Sub

bon après midi
@+

 

[PascalXLD]

Re : Range("A5").Select

Bonjour

Bon j'ai fusionné tous les fils pour en avoir qu'un seul

Georgio il serait bien de apsser pas la lecture de la charte aussi c'est très instructif pour pleinement tirer parti du forum

Bonne journée

 

[Spitnolan08]

Re : Range("A5").Select

Bonjour Pascal,
Compte tenu du mp que j'ai reçu de sa part, je ne pense pas que cela le soucie beaucoup...
Mais bon, ça peut changer...
Cordialement

 

[Staple1600]

Re : Range("A5").Select

Bonjour


Je profite de ce post pour poser cette
question (pour vérification et conseils)
En raccourcissant ainsi, la macro de Pierrot93
ca fonctionne toujours?

 [LEFT]Sub Copie_feuille()
[LEFT]   Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
   Sheets("Recap").Range("B5:L5").Insert Shift:=xlDown
   Range("B5").Select
End Sub[/LEFT]

[/LEFT]


En fait, je voudrais savoir,svp, (l'ayant lu) qu'il fallait essayer d' éviter les Select.
Est-ce toujours possible?
Et dans quels cas est-on obligé d'utiliser la sélection?

Merci.

 

[PascalXLD]

Re : Range("A5").Select

Re

Pour répondre à la question tu ne peux pas selectionner directement une cellule d'une autre feuille dans le code d'une feuille; il est préférable de passer par un module

 

[PascalXLD]

Re : Range("A5").Select

re

la preuve j'ai juste fait un couper coller du code dans un module et là pas de problème

Par contre en effet il y a beaucoup de select inutile mais là pas le temps de me pencher plus en avant

 

[Staple1600]

Re : Range("A5").Select

Merci Pascal76 d'avoir pris le temps de tester


Je viens de le faire aussi

Effectivement cela fonctionne

J'ai testé ceci également

Sub test()
Dim rng As Range
Set rng = Sheets("Recap").Range("B5:L5")
Sheets("Prix vierge").Copy after:=Sheets(Sheets.Count)
rng.Insert Shift:=xlDown
Set rng = Nothing
End Sub