Discussion :

[Charles1104]

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

[Daniel.C]

Bonjour,

Si tu mets le nom de la variable entre guillemets, VBA le considère comme du texte et nom comme un nom de variable. Mets :

Code :

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

Cells(lastRow, 1).Value = "=max(R3C1:R" & lastRow & "C1)"

[Charles1104]

Merci beaucoup !

[Daniel.C]

Et merci du retour. Marque la discussion comme résolue. Ça évitera que d'autres l'ouvrent pour chercher une solution.

[mercatog]

J'ajoute que pour que le code soit fiable, il faudra indiquer partout la feuille à laquelle se rapportent les Cellules

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim lastRow As Long
 
With Worksheets("Logos")
    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lastRow, 1).Formula = "=max(R3C1:R" & lastRow & "C1)"
    .Cells(lastRow, 2).Value = Logo.Value
    .Cells(lastRow, 3).Value = Clients.Value
    .Cells(lastRow, 4).Value = Points.Value
End With
End Sub

[Daniel.C]

Bonjour Mercatog,

On peut aussi ajouter le classeur pour être tout à fait sûr. Maintenant, comme on n'a qu'une partie du code, c'est peut-être superflu. Si, par exemple le userform est initié par un bouton sur la feuille recevant les données, c'est inutile.