Discussion :

[DSolano]

bonjour,
A tous, je viens à vous parce que cela fait une semaine que je me casse la tête à essayer de trouver comment faire.
J'aimerais automatiser la nomination (voir fichier joint) des tabulations candidates en fonction de ce que je mets dans la colonne candidate (A10 à A29)
Comme je suis novice en macro, j'avoue que je rame!
Merci de m'aider avec vos connaissances probablement plus pointues que les miennes!!!!

[Marc-L]

Bonjour, bonjour !

Comme je suis novice en décryptage de question, le plus simple est d'effectuer une présentation digne de ce nom
conformément aux règles de ce forum …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[gnain]

cela fait une semaine que je me casse la tête à essayer de trouver comment faire.
Comme je suis novice en macro, j'avoue que je rame!

En une semaine vous devez avoir quelque exemple de code que vous avez essayé de codé.
faite nous voir ces codes et nous expliqué ou vous bloquez, à quel ligne il y a un erreur, ce que vous avez essayé,
et pourquoi cela ne fonctionne pas ......

Il n'y a aucune gêne à être novice, nous sommes pas ici pour critiqué vos codes,
nous sommes ici pour vous aidez à amélioré les codes, et à aidé ceux qui ne savent pas pourquoi tel ou tel code
est mieux que d'autre selon ce que vous voulez faire.

Soyez plus clair.

[DSolano]

Mes essais infructueux se trouvent sur mon ordinateur au boulot, je les prends et je les poste à la première heure demain matin!
Merci d'avoir pris la peine de répondre.

[kiki29]

Salut, une recherche t'aurait déjà apportée une myriade de réponses.

[DSolano]

Voilà, je vais essayer de faire ça dans les règles de l'art...
Désolée si je m'y prends comme un manche...

J'ai un fichier dans lequel je dois encoder des noms de candidats (A10 a A29)
Je souhaite que les feuilles suivantes qui comprendront les données explicatives des résultats contenus dans la feuille active prennent le nom du candidat concerné.

Pour cela, lors de mon dernier essai, j'ai encodé comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Set Target = Range("A10")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Please revise the entry in A10." & Chr(13) _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("A10").Activate
End Sub

Cela fonctionne mais uniquement pour ma feuille active et non pour la feuille suivante.
Deuxième souci, cela marche pour la cellule A10 mais je dois le faire avec les celllules et tab d'après

Voilà, j'espère avoir suivi la "procédure"

[gnain]

Bonjour,
En supposant que toute vos feuilles sont créés et qu'il ont toute le même nom que les cellules A10 à A29
alors mettre ce code dans votre module de cette feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim Vieux_Nom As String
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Current As Worksheet
    If Target.Column = 1 And Target.Row > 9 And Target.Row < 30 Then
        For Each Current In Worksheets
            If Current.Name = Vieux_Nom Then
                Current.Name = Target
                Exit For
            End If
         Next
    End If
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Column = 1 And Target.Row > 9 And Target.Row < 30 Then
        Vieux_Nom = Target
    End If
 
End Sub