Numérotation ligne excel

francedemo

XLDnaute Occasionnel

• 5 Juin 2012

• #2

Re : Numérotation ligne excel

bonjour,
avec une petite macro ?

Code:

Dim i As Integer
Dim j As Integer

j = 1
For i = 2 To [A65000].End(xlUp).Row
    With Cells(i, 1)
        If .Value = "I" Then .Offset(0, 2).Value = j: j = j + 1
    End With
Next i

à +

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Juin 2012

• #3

Re : Numérotation ligne excel

Bonjour.
Supprimez vos formules et mettez ça dans le module de la feuille:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Numéro As Long
If Target.Column = 1 And Target.Count = 1 Then
   If UCase(Target.Value) = "I" And Target.Offset(, 1).Value = "" Then
      Randomize
      Do: Numéro = Int(Rnd * 10000): Loop Until WorksheetFunction.CountIf(Columns(1), Numéro) = 0
      Target.Offset(, 1).Value = Numéro
      End If
   End If
End Sub

À +

 

Vote positif 0 Vote négatif

A

Achraf

Guest

• 5 Juin 2012

• #4

Re : Numérotation ligne excel

Merci pour vos réponses.

@Dranreb : j'ai copié le code vba dans le module de la feuille, je me trompe peut-être, mais je n'ai pas l'impression qu'il fonctionne.

en pièce jointe, le fichier excel avec votre code VBA

 

Pièces jointes

• Exemple.xls

  33 KB · Affichages: 49
• Exemple.xls

  33 KB · Affichages: 76
• Exemple.xls

  33 KB · Affichages: 55

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Juin 2012

• #5

Re : Numérotation ligne excel

C'est à dire qu'il fonctionne uniquement quand on modifie une cellule de la colonne A au profit de "I". Mais il ne révise pas les "I" existants qui ne portent pas de numéros.
Cordialement.

 

Vote positif 0 Vote négatif

A

Achraf

Guest

• 5 Juin 2012

• #6

Re : Numérotation ligne excel

Excusez moi d'insister, le fait est que quand je copie le code VBA dans le module de la feuille, et que je clique sur play pour exécuter le code. Excel me demande de nommer une nouvelle macro suite à cela j'obtiens la fenêtre ci-jointe.
Qu'est ce que je dois faire au juste?

Merci de m'éclairer et encore désolé

 

Pièces jointes

• Test.jpg

  59.6 KB · Affichages: 75
• Test.jpg

  59.6 KB · Affichages: 78
• Test.jpg

  59.6 KB · Affichages: 83

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Juin 2012

• #7

Re : Numérotation ligne excel

Inutile de mettre une copie de la macro dans un module ordinaire.
Dans "Feuil1 (Feuil1)" seulement ça suffit.
Il n'y a pas à en demander l'exécution: La macro se déclenche toute seule quand on modifie une cellule de la colonne A. C'est ce qu'on appelle une procédure évènement, certains disent évènementielle.
Mais elle n'a d'effet que si on y met "I" et que la B ne contient pas déjà mieux qu'une chaîne vide.

 

Dernière édition: 5 Juin 2012

Vote positif 0 Vote négatif

A

Achraf

Guest

• 5 Juin 2012

• #8

Re : Numérotation ligne excel

Merci beaucoup

 

Vote positif 0 Vote négatif