Insérer 1 colonne en conservant une série de nbre

Résolu
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention   -  
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai oublié la formule à appliquer!
Pour faire clair A1 = 1 B1 = 2 C1 = 3 etc jusqu'à ..... 115.
Je voudrai si je supprime ou insère une colonne que ma série de chiffre se mette directement à jour

Merci beaucoup.


A voir également:

5 réponses

PapyLuc51 Messages postés 4519 Date d'inscription   Statut Membre Dernière intervention   1 486
 
Salutations à tous;

Sans VBA ce petit exemple au cas où ça intéresserait

https://www.cjoint.com/c/HJwl1ZMztH8

Cordialement
2
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
Bonjour
Tu veux numéroter 115 colonnes, et que la numérotation s'actualise si tu ajoutes ou supprimes une colonne...
si on supprime une colonne, la numérotation doit elle toujours aller jusqu'à 115 ou s'arrêter à 114?
inversement si on ajoute un colonne la numérotation va jusqu'à 116 ou 115? ce qui implique la suppression du contenu de "l'ancienne" colonne 115?


1
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour ton message.
Jusqu’à 115. Merci
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
j'ai bidouillé ce code qui réagit sur un changement ligne 2 en supposant que tu effaces ou inseres systématiquement des colonnes ainsi j'ai pu programmer la mise à jour des numéros jusqu'à 115 sans revenir sur un évènement dans la ligne que je met à jour
tu peux inserer 50 colonnes (ou plus encore) d'un coup ça tourne... pour la ligne 1.. ne sachant pas ce qui est en dessous je ne m'en suis pas occupé...
alt+F11 sur l'onglet à programmer et colle le code qui suit en l'adaptant bien sûr

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, dercol As Long

If Not Application.Intersect(Target, Range("2:2")) Is Nothing Then
    dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    If dercol < 115 Then dercol = 115
    For i = 1 To dercol
        If i <= 115 Then
            Worksheets("NOMDELAFEUILLE").Cells(1, i).Value = i
        Else
            Worksheets("NOMDELAFEUILLE").Cells(1, i).Value = ""
        End If
    Next i
Else
End If

End Sub
0
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention  
 
Merci tellement!!!
0
yclik Messages postés 3873 Date d'inscription   Statut Membre Dernière intervention   1 562
 
Bonsoir
en A1
=COLONNE()

A recopier à droite
0
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour

Merci pour la réponse. Le but est de pouvoir l’appliquer sur toute la ligne pour chaque colonne. Car si j’etire Ça ne fonctionne pas du tout :)
Merci
0
Raymond PENTIER Messages postés 58989 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
La première réponse, celle d'yclik, était parfaite : simple et efficace à 100%

Et quand tu dis " Car si j’etire Ça ne fonctionne pas du tout ", c'est faux :

0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
bonjour Raymond,
Tu as raison, en terme de numérotation la formule =COLONNE() fonctionne parfaitement
je pense que c'est le côté "mise à jour" qui ne convenait pas
"je voudrai si je supprime ou insère une colonne que ma série de chiffre se mette directement à jour"
0
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Fabien :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Lalyml Messages postés 39 Date d'inscription   Statut Membre Dernière intervention  
 
Merci à tous pour votre aide!!!
0