selection feuille selon chiffre

[TOINE38]

Bonjour a tous,

Je suis à la recherche d'un code qui permettrais en fonction du chiffre d'une cellule, copier des données dans la feuille ayant pour nom ce même chiffre.
Exemple:
Dans fichier "A", feuille1 , j'ai 07 en A1
Je veux coller les lignes B et C dansle fichier "B" , feuille portant le nom 07

Esperant être assez explicite pour que quelqu'un puisse me donner un petit coup de pouce.

En vous remerciant par avance

Toine38

 

[tototiti2008]

Re : selection feuille selon chiffre

Bonjour Toine38,

les 2 fichiers sont supposés être ouverts lors de la copie ?

 

[TOINE38]

Re : selection feuille selon chiffre

bonjour tototiti2008

Oui les 2 fichiers sont ouverts

Tu aurais une idée

Merci d'avance

toine38

 

[Guest]

Re : selection feuille selon chiffre

Bonsoir Toine,

Sûrement avec quelquechose comme ceci

Dans cette macro les 2 lignes seront copiées à la même place ("B:C") du classeur "B". Ici je suppose que B n'est là qu'à titre d'exemple et que le fichier destination a un autre nom. Sans plus de précision, difficile de faire mieux.

Sub CopierLignes()
   Dim shDestination as WorkSheet
   Dim NomFeuille as String
 
   NomFeuille=ThisWorkbook.Sheets("Feuil1").range("A1").Text
 
   Set shDestination=Workbooks("[SIZE=3][COLOR=red]B.xls[/COLOR][/SIZE]").Sheets(NomFeuille)
 
   ActiveSheet.Range("B:C").Copy Destination:= shDestination.Range("B:C")
   Application.CutCopyMode=False
End Sub

A bientôt

 

[TOINE38]

Re : selection feuille selon chiffre

Merci Hasco,

Je vais tester cela dés demain on arrivant à la boite.

Je te remercie d'avoir pris un peu de ton temps pour m'aider.

Amitié

Toine38