Discussion :

[Mickamax]

Bonjour à tous,

Problème probablement très facile à régler:

J'ai actuellement un fichier partagé dans mon entreprise (je sais que ce support n'est pas l'idéal mais bon…) dans lequel les utilisateurs remplissent un formulaire.

Ma colonne A renvoie une référence grâce à ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dligne = Range("A15000").End(xlUp).Row 'Va chercher la derni?re ligne du tableau
Cells(Dligne + 1, 1) = Cells(Dligne, 1) + 1 'prends le N? de la derni?re ligne +1 de la colonne 1

Celui-ci prends la Ref de la ligne précedente et y ajoute +1 pour avoir des numéros uniques. Cependant, les utilisateurs ont la fâcheuse tendance de sauter des lignes parfois… Ce qui renvoie les références à 0...



J'ai voulu créer un code pour donner comme référence le numéro de la ligne, et jusqu'ici ça donne ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Nligne()
Dligne = Range("A1000").End(xlUp).Row
 
Cells(Dligne + 1, 1) = Rows(Dligne + 1).Value
 
End Sub

Comme vous vous en doutez, cela ne fonctionne pas... Auriez-vous des pistes pour adapter ce code ?

Merci,
Mickamax

[Invité]

Bonjour,

Et en récupérant à chaque fois, le max de la colonne ?

[halaster08]

Bonjour

pour donner comme référence le numéro de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dligne = Range("A1000").End(xlUp).Row
Cells(Dligne + 1, 1) = Dligne + 1

[Thumb down]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 Target.Parent.Cells(Target.Row, "A")=Target .Row
End Sub

[Mickamax]

Merci à tous pour votre aide,
J'ai opté pour la solution de Halaster08 qui s'approchait le plus de mon code d'origine…

@eric Kergresse: Ta solution est probablement la plus optimisée pour avoir forcément des références qui se suivent de 1 en 1... Ce qui ne sera pas le cas ici puisque les utilisateurs risquent toujours de sauter des lignes, mais enfin le problème est moindre qu'avant ma demande.

J'ai réfléchi à la façon de définir la cellule avec la valeur max et j'avoue que pour ma culture personnelle j'aimerai bien savoir quelle technique est la plus simple. Du peu d'expérience que j'ai je vois deux solutions:

- Utiliser la function Max+1. Mais est-il possible de variabiliser une fonction avec VBA par rapport à la dernière ligne ?

- Faire une boucle sur toutes mes cellules en colonne 1, stocker la cellule avec la plus forte valeur, et pour chaque cellule dans ma boucle tester si la valeur > la valeur stockée, le cas échéant la valeur de ma cellule prends la place de la valeur stockée…



Mickamax

[Invité]

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub Test()
 
    MsgBox NumeroChantier(Sheets("Feuil2"), 1)
 
 
End Sub
 
 
Function NumeroChantier(ByVal ShSuivi As Worksheet, ByVal ColonneNumero As Long) As Long
 
  NumeroChantier = WorksheetFunction.Max(ShSuivi.Columns(ColonneNumero)) + 1
 
End Function

[patricktoulon]

bonsoir
peut être empêcher toute tentative de sauter une ligne
si je comprends bien ton énoncé le formulaire c'est une plage de cellules
donc exemple en considérant que le formulaire c'est la plage A1:E10
dans le module de la feuille du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set plage = ActiveSheet.Range("A1:E10")    ' le formulaire est en A1:E10
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, plage) Is Nothing Then
        Set c = plage.Columns(1).Find("*", SearchDirection:=xlPrevious)
        If c.Row < Target.Row Or Target.Row = plage.Row Then
            Application.EnableEvents = True
            If WorksheetFunction.CountBlank(c.Resize(1, plage.Columns.Count)) <> 0 Then
                plage.Cells(c.Row, 1).Select
            Else
                plage.Cells(c.Offset(1).Row, 1).Select
            End If
        End If
    End If
    Range(Selection.Address).Value = Val(Range(Selection.Address).Offset(-1).Value) + 1
    Application.EnableEvents = True
End Sub