Insertion de nom dans cellule

Re : Insertion de nom dans cellule

Bonjour alfazoulou, le forum,
Je ne sais pas si cela répondra à tes attentes mais en général je m'arrange pour nommer mes plages qui me servent de références soit dans des colonnes ou lignes masquées ou encore mieux dans un onglet spécial qui ne sert qu'à çà.
En attendant, bonne réflexion.

Re : Insertion de nom dans cellule

Bonjour alfazoulou,

à quoi sert de nommer la cellule A55 en A_55 ?

Re : Insertion de nom dans cellule

En fait les lignes 56 à 62 ne doivent pas bouger puisqu’elles constituent mon « bas de page ».
D’autre part les lignes de 1 à 55 se remplissent par l’intermédiaire des données rentrées dan un userform.
Dans cet userform j’ai un textbox par l’intermédiaire duquel on peut insérer du texte sur une ou plusieurs lignes, sachant que dans ce dernier cas il faut que le renvoie à la ligne est été autorisé.
C’est alors qu’apparaît mon problème, c’est que si une ligne qui à l’origine a une hauteur standard de 12,75 se retrouve à mesurer 38.25 parce que le texte quelle contient forme 3 lignes,
Mon bas de page se retrouve hors de la page.
Ma première idée a été de supprimer deux lignes en dessous de la ligne contenant le texte, et c’est là que le second problème apparaît, à savoir que la cellule A55 nommée A_55 qui me permet en remontant de remplir mon tableau se retrouve décalée.
La solution étant peut être finalement de ne pas nommer les cellules mais je pensais qu’il était plus prudent de le faire.
Je ne sais pas si c’est bien clair mais bon…

Re : Insertion de nom dans cellule

Re,
Voici un code qui pourrait peut-être te servir (à adapter à ton cas bien sûr)
Ce code ajoute une ligne supplémentaire si une ligne est supprimée avant la ligne 165 ou supprime une ligne quand une ligne est ajoutée avant la ligne 165.
Attention toutefois à bien nommer les 2 plages ainsi : Fin1=A165 et Fin2=A170.
Si cela peut t'aider...
Bonne fin de journée.

Re : Insertion de nom dans cellule

criscris11 à dit:

Re,
Voici un code qui pourrait peut-être te servir (à adapter à ton cas bien sûr)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > Range("Debut").Row And Target.Row < Range("Fin2").Row Then
    If Range("Fin2").Row > 170 Then
        ActiveSheet.Range("A175").EntireRow.Delete
    End If
    ActiveWorkbook.Names.Add Name:="Fin2", RefersTo:="='Liste batterie'!$A$170"
End If
If Target.Row > Range("Debut").Row And Target.Row < Range("Fin1").Row Then
    If Range("Fin1").Row < 165 Then
        ActiveSheet.Range("A175").EntireRow.Insert Shift:=xlDown
    End If
    ActiveWorkbook.Names.Add Name:="Fin1", RefersTo:="='Liste batterie'!$A$165"
End If
End Sub

Ce code ajoute une ligne supplémentaire si une ligne est supprimée avant la ligne 165 ou supprime une ligne quand une ligne est ajoutée avant la ligne 165.
Attention toutefois à bien nommer les 2 plages ainsi : Fin1=A165 et Fin2=A170.
Si cela peut t'aider...
Bonne fin de journée.

Cliquez pour agrandir...

je te remercie je vais essayé.