Bonjour,

j'ai un tableau avec 4 colonnes et je dois régulièrement entrer des nouvelles données dans ce tableau (nouvelle ligne à la fin avec nouvelles données). J'ai le code suivant :

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
Private Sub CommandButton1_Click()
       Dim lastRow As Long
       lastRow = Worksheets("Logos").Cells(Worksheets("Logos").Rows.Count,   1).End(xlUp).Row + 1
       Cells(lastRow, 1).Value = "=max(R3C1:RlastRowC1)"
       Cells(lastRow, 2).Value = Logo.Value
       Cells(lastRow, 3).Value = Clients.Value
       Cells(lastRow, 4).Value = Points.Value
  End Sub
 
  Private Sub CommandButton2_Click()
        Unload Me
  End Sub
 
   Sub NouvelleDonnée()
   UserForm1.Show
   End Sub
Le problème c'est que ma formule "Cells(lastRow, 1).Value = "=max(R3C1:RlastRowC1)" " ne fontionne pas et que quand je clique sur le Commandbutton1 dans ma userform, celle-ci se répète sans arrêt...

Est-il possible aussi de créer u nlien vers cet userform 2 lignes en dessous de mon tableau au lieu de devoir lancer la macro manuellement via le developer ?

Un tout grand merci pour l'aide,

Charles