Incrementer la plus grande valeur d'une colonne

Bonsoir

sur ma feuille de calcul ( feuil1) je dipose d'une colonne allant de C21 à C100 , je souhaiterai augmenter automatiquement de +1 la valeur du plus grand nombre s'y trouvant et qu'il soit donc remplacé par sa nouvelle valeur j'ai essayé de faire ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim maxi As Long
maxi = Application.Max(Range("C21:C100"))
maxi = maxi + 1

End Sub

mais ca ne marche pas !

en vous remerciant pour vos lumières

Cordialement .

Salut le forum

Et comme ceci

Dim Lig As Long
  Lig = Range("C21:C100").Find(Application.Max(Range("C21:C100"))).Row
  Cells(Lig, "C") = Cells(Lig, "C") + 1

Mytå

Bonsoir , Merci pour cette réponse Myta , j'ai testé ton code , ...rien ne se passe !

Re le forum

rocket4 a écrit :

Bonsoir , Merci pour cette réponse Myta , j'ai testé ton code , ...rien ne se passe !

Impossible . . . Comment est déclenché ton action ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long
If Not Application.Intersect(Target, Range("E21")) Is Nothing Then
  Lig = Range("C21:C100").Find(Application.Max(Range("C21:C100"))).Row
  Cells(Lig, "C") = Cells(Lig, "C") + 1
  Target.Offset(1).Activate
End If
End Sub

Prend la peine de lire : [VBA] Utilisation de la méthode Intersect

Mytå

Pardon !!! j'etais un peu vite , il marche parfaitement , encor merci !!!!

Re le forum

Avant de crier au loup, il faut vérifier pourquoi la solution donnée ne fonctionne pas . . .

Comme mentionné dans ma signature

« Le bug le plus rencontré en informatique est l’interface chaise-clavier. »

Bonne fin de soirée

Mytå

par contre en testant ton code

Private Sub Worksheet_selectionChange(ByVal Target As Range)

Dim Lig As Long
  Lig = Range("C21:C100").Find(Application.Max(Range("C21:C100"))).Row
  Cells(Lig, "C") = Cells(Lig, "C") + 1

  End Sub

la plus grande valeur est bien incrementé de plus un , mais si je sélectionne n'importe quelle autre cellule de la colonne pour y ajouter une nouvelle valeur, la valeur deja incrementée augmente à chaque fois de +1

les réponses et les questions sont décalées , bon je vais mediter tout cela

en te remerciant infiniment pour ta contribution

Cordialement ,Rocket

Re le forum

Relis mon message plus haut tu as la solution et un lien vers la méthode «Intersect»

Mytå