Macro : incrémenter en fonction d'un nom d'onglet

[skydry20]

Bonjour à tous,

Je rame avec ma Macro...

J'ai une macro qui me permet de transformer le nom d'un onglet en Sheet n+1 a chaque fois que j'ajoute un onglet Q&A.

Sheets("Q&A").Name = "Sheet" & Sheets.Count

ma macro continue avec

Sheets("Resultat").Select
Range("B7:G7").Select
Selection.AutoFill Destination:=Range("B7:G8"), Type:=xlFillDefault

L'opération correpond à :

Range("B7:G7").Select -ce quicorrespond au resultat de ma Sheet1
Range("B7:G8") -correspond au résulat de ma Sheet2 incrementer sur le modèle Range("B7:G7") de ma sheet1.
et je voudrais que lorsque l'onglet suivant change de nom il refasse la même opération à savoir lorsque l'onglet sheet3 sera nomé qu'il reproduise l'operation en Range("B7:G9")et ainsi de suite...

Des idées?

 

[Robert]

Re : Macro : incrémenter en fonction d'un nom d'onglet

Bonjour Skydry, bonjour le forum,

Peut-être comme ça :

Range("B7:G" & Sheets.Count).Select

 

[skydry20]

Re : Macro : incrémenter en fonction d'un nom d'onglet

Merci c'est parfait!