Selection de feuille

[cashern]

Bonjour à tous je suis nouveau sur ce forum et également débutant en VBA
et après avoir regarde plusieurs dizaines de post pour essayé de résoudre mon problème sans succès je me retourne vers vous.

Voici mon problème :

je creer une nouvelle feuille (essai000) avec variable.
dans cette nouvelle feuille je veux y mettre des information qui sont dans l ancienne (avant_macro). mais je n arrive pas a selectionner cette nouvelle feuille variable.

Merci d avance.....
Dim derno As Integer
Dim nouv As Integer
Dim man As Integer
Dim nouvelle_feuille As String

Sheets.Add

derno = 0
For nouv = 1 To Sheets.Count
If Left(Sheets(nouv).Name, 5) = "Essai" Then
For man = 1 To Len(Sheets(nouv).Name)
If IsNumeric(Mid(Sheets(nouv).Name, man, 1)) Then
nouvelle_feuille = nouvelle_feuille & Mid(Sheets(nouv).Name, man, 1)
End If
Next man
If CInt(nouvelle_feuille) > derno Then derno = nouvelle_feuille
End If
nouvelle_feuille = ""
Next nouv
ActiveSheet.Name = "Essai" & Format(derno + 1, "000")

col1 = 1
Sheets("Avant_macro").Select
For b = 21 To 32 Step 2
ligne1 = 21 'attention il faut reporter cette valeur dans le "nom de la ligne ajoutee"

Sheets("nouvelle_feuille").Cells(ligne1, col1) = Sheets("Avant_macro").Cells(b, 1)

 

[Hervé]

Re : Selection de feuille

bonjour

ton souci est ici : Sheets("Avant_macro").Select

tu sélectionnes cette feuille sans avoir stocké le nom de la nouvelle.

plusieurs solutions.

Soit tu supprimes cette ligne inutile et tu utilises activesheet pour faire référence à ta nouvelle feuille :

activesheet.Cells(ligne1, col1) = Sheets("Avant_macro").Cells(b, 1)

soit, tu "variabilises" la nouvelle feuille :

dim ws as worksheet

set ws =sheets.add

et ensuite tu utilises la variable ws pour faire référence à ta nouvelle feuille :

ws.Cells(ligne1, col1) = Sheets("Avant_macro").Cells(b, 1)

derniere solution, tu récupère le nom crée pour ta nouvelle feuille :

sheets("Essai" & Format(derno + 1, "000")).Cells(ligne1, col1) = Sheets("Avant_macro").Cells(b, 1)

tout ceci sans essai, juste à la lecture de ton code, donc désolé, si je suis completement à l'ouest.

salut

 

[cashern]

Re : Selection de feuille

Merci Hervé de ta reponse.

Je prefererai stocker le nom de la nouvelle feuille pour pouvoir l 'utilise plus loin dans le code 😀 😀

 

[cashern]

Garder le nom d une nouvelle feuille

J ai épuise toute mes idees... en auriez vous une ou deux pour moi SVP


Merci

 

[cashern]

Re : Selection de feuille

non toujours personnes????

 

[pierrejean]

Re : Selection de feuille

bonjour cashern

en l'absence de l'excellentissime Hervé 🙂 que je salue

et parceque j'ai cru reconnaitre le code destiné a renommer une feuille

un fichier exemple

Attention: la recopie est celle que tu as prévu

est-ce bien ce que tu souhaites ??

 

[cashern]

Re : Selection de feuille

Merci pour ta reponse

Et oui bien reconnu 😀 j ai pris un bout de code sur le forum

Tu as presque la solution. mais je ne sais pas pourquoi mais je perd le nom de ma nouvelle feuille quelque lignes plus loin

je met un fichier en exemple de ce que j ai et de ce que je veux avoir


😀

 

[pierrejean]

Re : Selection de feuille

re

Attention a ne pas melanger

les variables : NouvelleFeuille qui peuvent contenir un string ex:"Essai002"
et les string
genre "Avant_macro" ou "NouvelleFeuille"

 

[cashern]

Re : Selection de feuille

😀 😀 😀

Merci a toi pierrejean tu as reussi...

Bravo a tous ceux qui aide sur ce forum 😉