Format colonne N°

Version imprimable

07/07/2012, 18h08
maxval18

Format colonne N°

Bonjour

j'ai un petit souci. Avec la ligne ci-dessous, j'ai dans la colonne "A" a chaque enregistrement "N° 1" et par ligne

Code:

.Range("A" & Ligne) = "N°" & " " & Application.max(.Range("A3:A" & Ligne)) + 1

Mon souci est a chaque enregistrement il me donne toujours "N°1" alors qu'il devrais y avoir N°2, N°3 ect..

je pense que sa devrait venir de l'application.Max puisque ce n'est pas un nombre?

Je vous remercie de votre aide

Cordialement

Maval
07/07/2012, 18h21
Philippe Tulliez
Bonjour,
Comment veux-tu avoir une réponse pertinente quand tu montres un morceau de ton code.
La variable Ligne est incrémentée comment, par une boucle ?
Pourquoi utiliser la fonction Max ?
Avec une boucle simple, tu peux obtenir l'incrémentation de Ligne
Code:

1 2 3 4 Dim ligne As Long For ligne = 3 To 10 Range("A" & ligne) = "N°" & " " & ligne Next
Et si tu veux obtenir 1, 2 etc.... il suffit d'ajouter ligne-2

Bonjour Corona,

Voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Private Sub CommandButton3_Click()
' Nouvel adhérent
Dim Cel As Range
Dim ligne As Long
 
  If Me.ComboBox2.ListIndex = -1 Then
    MsgBox "Veuillez choisir la civilité"
    Exit Sub
  End If
 
  If Trim(Me.TextBox4) = "" Then
    MsgBox "Veuillez indiquer un Nom"
    Exit Sub
  End If
 
  If Trim(Me.TextBox5) = "" Then
    MsgBox "Veuillez indiquer un Prénom"
    Exit Sub
  End If
  'Stop
 
  'TextBox7, 9, 10, 11, uniquement en Numerique
If Not IsNumeric(TextBox7) Then
       MsgBox "Le code postal doit être renseigné correctement.", vbOKOnly + vbInformation, "Erreur code postal"
       TextBox7 = ""
       TextBox7.SetFocus
       Exit Sub
 End If
If Not IsNumeric(TextBox9) Then
       MsgBox "Le N° téléphone doit être renseigné correctement.", vbOKOnly + vbInformation, "Erreur N° téléphone"
       TextBox9 = ""
       TextBox9.SetFocus
       Exit Sub
 End If
 
If Not IsNumeric(TextBox10) Then
       MsgBox "Le N° Fax doit être renseigné correctement.", vbOKOnly + vbInformation, "Erreur N° Fax"
       TextBox10 = ""
       TextBox10.SetFocus
       Exit Sub
 End If
 
If Not IsNumeric(TextBox11) Then
       MsgBox "Le N° Portable doit être renseigné correctement.", vbOKOnly + vbInformation, "Erreur N° Portable"
       TextBox11 = ""
       TextBox11.SetFocus
       Exit Sub
 End If
  'Stop
 
  With Sheets("Feuil1")
    Set Cel = .Columns("C").Find(what:=Me.TextBox4 & " " & Me.TextBox5, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      If MsgBox("Un adhérent ayant ce nom existe déjà : On le modifie ?", vbInformation + vbYesNo, "Modification") <> vbYes Then Exit Sub
      ligne = Cel.Row
    End If
    EnCours = True
    If ligne = 0 Then
      ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
 
      Dim ligne As Long
 For ligne = 3 To 10
  Range("A" & ligne) = "N°" & " " & ligne
 Next
 
      '.Range("A" & ligne) = "N°" & " " & Application.max(.Range("A3:A" & ligne)) + 1
      '.Range("M" & Ligne) = Application.max(.Range("M3:M" & Ligne)) + 1
 
 
 
 
    End If
    .Range("B" & ligne) = Me.ComboBox2
    .Range("C" & ligne) = Me.TextBox4 & " " & Me.TextBox5
    .Range("D" & ligne) = Me.TextBox4
    .Range("E" & ligne) = Me.TextBox5
    .Range("F" & ligne) = Me.TextBox6
    .Range("G" & ligne) = Me.TextBox7
    .Range("H" & ligne) = Me.TextBox8
    .Range("I" & ligne) = Me.TextBox9
    .Range("J" & ligne) = Me.TextBox10
    .Range("K" & ligne) = Me.TextBox11
    .Range("L" & ligne) = Me.TextBox14
    .Range("L" & ligne).Value = Me.TextBox12 & "@" & Me.TextBox13
    Sheets("Feuil1").Hyperlinks.Add Range("L" & ligne), Address:=Cells(3, 12).Value
 
 
  End With
  EnCours = False
  Unload Me
  UserForm1.Show 0
 
    'Mise en ordre alphabétique sur la feuille
   Range("A3:M250").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A3:M250")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  Range("M1").Select
  'Stop
End Sub

@+

Max

07/07/2012, 18h38
Philippe Tulliez
Bonjour,
En fait tu veux indiquer dans la colonne A le n° de la dernière ligne occupée par la colonne C
C'est un peu spécial parce-que finalement, tu pourrais tester directement la colonne A mais enfin c'est toi qui décide.
Code:

1 2 ligne = .Range("C" & Rows.Count).End(xlUp).Row .Range("A" & ligne) = "N°" & " " & ligne
07/07/2012, 18h43
maxval18

Re,

J'ai toujours le même N° qui s'affiche ?
07/07/2012, 18h55
Philippe Tulliez

Bonjour,
J'ai testé et si tu as une valeur dans la cellule Cx, x représentant une ligne, tu devrais obtenir le n° de la ligne dans la variable ligne

Re

Pour se a qui sa intéresse ceci marche nickel....!

Code:

1
2
3
4
5
      ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & ligne) = Application.max(.Range("A3:A" & ligne)) + 1
      .Range("A" & ligne).NumberFormat = """N° ""####" 'Pour marquer dans la colonne "A" N°
 
      .Range("M" & ligne) = Application.max(.Range("M3:M" & ligne)) + 1 'Pour la recherche du nombre le plus gros de la colonne "M"

@+
Max