XL 2016 Renommer une feuille en fonction d'une cellule d'autre feuille

sylvanu à dit:

Bonjour Nando,
Lorsque vous faites Call Creer_Supprimer(Target) c'est la valeur de la cellule target qui est utilisée, non son adresse.
Dans la PJ j'ai fait au niveau de Worksheet_Change :

VB:

Call Creer_Supprimer(Target.Address)

Puis au niveau de Creer_Supprimer :

Code:

Sub Creer_Supprimer(Adresse)
puis
Set Valeur = Sheets("Synthèse").Range(Adresse)

De cette façon Valeur représente une adresse, et non une valeur.

Cela donne quand même une erreur sur Numérodematricule = Valeur.Offset(0, 9) car Numérodematricule est déclaré comme Long alors que la valeur remontée est "Numérodematricule", donc une chaine.
je ne suis pas sur que c'est ce que vous vouliez faire.
Vous voulez copier la cellule de la ligne 4, on celle d'en dessous ?
Ca je vous laisse faire, vous irez beaucoup plus vite que moi.

( A noter que la macro doit pouvoir être optimisée, si j'ai bien compris avec :

VB:

Sub Creer_Supprimer_ESSAI(Adresse)
  Dim Nom As String, dl As Long, C As Long, valeur As Range
  Set valeur = Sheets("Synthèse").Range(Adresse)
  Nom = valeur.Offset(0, -2)
  If FeuilleExiste(Nom) And valeur = "" Then
    Application.DisplayAlerts = False
    Sheets(Nom).Delete
    Application.DisplayAlerts = True
  Else
    If Not FeuilleExiste(Nom) Then
      Sheets("Feuille Type").Copy After:=Sheets(Sheets.Count)
      Sheets(Sheets.Count).Name = Nom
      dl = Sheets(Nom).Range("Bz" & Rows.Count).End(xlUp).Row + 1
      For C = 1 To 48
            Sheets(Nom).Cells(dl, C) = valeur.Offset(0, C - 3)
      Next L
    End If
  End If
End Sub

car toutes les colonnes se suivent tant en lecture qu'en écriture.
J'ai mis ça dans Essai et est appelée Creer_Supprimer_ESSAI )

Cliquez pour agrandir...

sylvanu à dit:

Comme indiqué je n'ai fait sauter que le verrou de la Target qui posait problème.
Je n'ai pas compris ce que vous vouliez copier ni quelles cellules A2 et a3 de quelle feuille vous vouliez utiliser.
Préciser.

Cliquez pour agrandir...

sylvanu à dit:

Dans Feuille type A2 est vide et A3 contient =SI(D9;"Annulé";"") et D9 est vide.
Vous êtes sur que c'est ça ?

Cliquez pour agrandir...

sylvanu à dit:

En A2 vous mettez, avec dl=2 au début

Code:

 Sheets(Nom).Range("A" & dl).Value = Nom

Or "Nom" n'est pas référencé dans 'Tableau de bord'!C9:E39 donc RechercheV donne #N/A.

Ensuite vous faites un :

VB:

 dl = Sheets(Nom).Range("Bz" & Rows.Count).End(xlUp).Row + 1

Avec Nom = la feuille crée, et il n'y a rien en colonne BZ.

Désolé, je ne comprends rien.
J'espère qu'un autre contributeur qui passerait par ici sera plus perspicace.

Cliquez pour agrandir...

sylvanu à dit:

Dernière tentative.
1- Dans Worksheet_Change c'est C4:C50 et non C3:C50, sinon erreur si clic en A3
2- Dans dl = Sheets(Nom).Range("Bz" & Rows.Count).End(xlUp).Row + 1, à priori c'est "B" et non "Bz"
3- Les Immat sont VD+espace+Nombre, j'ai rajouté l'espace sinon, évidemment, ça coince.
4- J'ai rajouté pour accélérer, sinon ça rame :

VB:

    Application.ScreenUpdating = False                          ' Fige l'écran
    Application.Calculation = xlCalculationManual               ' Mettre en calcul manuel
    Application.EnableEvents = False                            ' Supprimer tout event
    Application.DisplayAlerts = False                           ' Supprimer les alertes

5- J'ai simplifié à mort le module Creer_Supprimer par une boucle For Next

Par contre la cellule A3 de la feuille copiée n'est pas utilisée, là, j'ai pas compris. Enrichir le code.
Dans Synthèse il faut remettre formules en colonnes A, ici j'ai fait coller valeurs.

Il y avait quand même pas mal d'erreurs. A vous de jouer pour le reste.

La prochaine fois, soyez quand même plus explicite dans votre demande. N'oubliez pas que le contributeur ne connait pas votre fichier. Alors A2:A3 ne veut rien dire si vous ne précisez pas de quelle feuille par ex.

Cliquez pour agrandir...