Private Sub Worksheet_SelectionChange(ByVal Target As Range) derlig = Range("AG" & Rows.Count).End(xlUp).Row + 1 If Range("AG" & derlig).Text = "" And Range("B" & derlig) <> "" Then Range("AG" & derlig).Activate End Sub
Forum > Visual Basic 6et non dans la section (Langage dérivés > VBA) correspondant à ton langage de développement.
- ouvre d'abord ton aide VBA sur Application.Ontime (et lis)
- qu'appelles-tu la "dernière cellule du tableau dans la colonne AG" ? Comment l'identifies-tu très exactement ? Car si dernière cellule remplie en colonne AG, simplement, elle est par définition déjà remplie ! Et si première cellule non remplie après la dernière remplie, il y en aura toujours une dans ce cas, y compris après remplissage de la précédente (et tu n'en sortirais alors jamais ?) !