Discussion :

[lmc71]

Bonjour le forum
Je suis à la recherche d'une Vb qui me permet de récupérer le nom d'un onglet précis et de l'insérer dans une cellule choisie d'une autre feuille.
J'ai cherché et j'ai trouvé beaucoup de chose mais rien ne correspond à mon souhait.
J'ai retenu cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CopieNomFeuilles()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Range("A1") = sh.Name
Next
End Sub

mais je n'arrive pas (normal vu ma connaissance en vba) à la modifier.
J'ai un classeur contenant plusieurs feuilles et je voudrais récupérer le nom de la feuille 3 J pour placer ce nom dans le cellule C3 de la feuille portant le nom Score

[cb_60]

Bonsoir
Se mettre sur la feuille que l'on souhaite transférer le nom et lancer la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub CopieNomFeuilles()
 
 Sheets("Score").Range("C3") = ActiveSheet.Name
 
 End Sub

[lmc71]

Bonsoir
Se mettre sur la feuille que l'on souhaite transférer le nom et lancer la macro.

Merci Cb 60 de ta réponse rapide est opérationnelle. C'est ce que je souhaitais, pensant pouvoir la modifier un peu. Mais franchement je suis un nul car je voudrais utiliser cette fonction [IV1].End(xlToLeft).Offset(0, 1) qui me renvoie à la première cellule vide de la dernière colonne. Car en fait ma macro finale devrait ressembler à ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Sheets("3 J").Select ' feuille où se trouvent les données
    Range("k3").Select   ' valeur de la cellule à recopier
    Selection.Copy
    Sheets("Score").Select ' feuille où doit être recopier la donnée
    [IV2].End(xlToLeft).Offset(0, 1).Activate  ' dernière colonne première cellule vide 
    Selection.PasteSpecial Paste:=xlPasteValues  ' copiage

J'ai essayé ceci dans ta formule, mais le résultat n'est pas bon. 3 J est recopié 8 fois à partir de la première cellule vide. Je lance la macro depuis le feuille 3 J.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CopieOnglet()
Dim sh As Worksheet

For Each sh In Worksheets
Sheets("Score").[IV1].End(xlToLeft).Offset(0, 1) = ActiveSheet.Name  en lieu est place de Range("C3")
Next
End Sub

Peux-tu me replacer cette macro de façon que 3 J soit placé sur la première ligne première colonne vide et que la valeur de cellule K3 soit placée dans la cellule soit 3 J soit sur la deuxième ligne.
Dans l'absolue est-il possible de transposer la valeur d'une plage (K3:N3) de 3 J dans la première colonne vide de la feuille Score à partir de la deuxième ligne, la 1ère étant réservée au nom de la feuille.
Grandement merci.
Cordialement

[cb_60]

Bonjour
Je ne comprend pas ton souhait?

[lmc71]

Bonjour CB 60
Excuses-moi si je n'ai été pas assez explicite.
Disons que la macro que tu m'as fournie est superbe, et je voudrais en plus pouvoir exporter la valeur de la plage K3:O3 de la feuille 3 J pour y placer dans la première colonne vide de la feuille Score. Le tout évidemment dans la même macro.
C'est pourquoi de t'avais mis mon "travail" qui ne fonctionne qu'en parti.
En un mot : récupération du nom de l'onglet et récupération des valeurs de K3:O3 de la feuille 3 J pour tout y placer dans la première colonne vide à partir de C1 de la feuille Score.
Ce qui me donne dans la feuille Score :A1 = Noms - B1= Score Final (ces deux cellules sont en permanences) - C1=3 J & Date - C2=K3 - C3=L3 - C4=M3 - C5=N3 - C6= O3.
Excuses-moi encore un fois
Cordialement

[cb_60]

Bonjour
A tester, lancer la macro depuis la feuille " 3 J"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
test = ActiveSheet.Name
    Sheets("Score").Range("IV1").End(xlToLeft)(1, 2) = test & " _ " & (Format(Now, "dd-mm-yy"))
    Sheets(test).Range("k3:q3").Copy
    Sheets("Score").Activate
    Sheets("Score").Range("IV1").End(xlToLeft)(1, 1).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
     Application.CutCopyMode = False
    Range("A1").Select
 
End Sub

[lmc71]

Re
Merci, c'est exactement le résultat que je souhaitais.
J'essaye de comprendre la vba mais il est très difficile de tout comprendre en autodidact.
Je repasserai par tes services CB 60, car tu es pro, rapide et efficace.
Dossier classé.
Cordialement à tout le forum

[cb_60]

Re
Désolé, mais en macro je suis qu'un novice, si un pro voyait ce boulot, je suis sur qu'il y aurais deux fois moi de code!!!

merci tout de même

[lmc71]

Il n'y a pas de quoi, je voudrais bien être un novice comme toi.
C'est moi qui te remercie.
A la prochaine, même si tu es un novice
Cordialement