Userform - Tableau

Version imprimable

Userform - Tableau

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:

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

22/11/2012, 19h44
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:

Cells(lastRow, 1).Value = "=max(R3C1:R" & lastRow & "C1)"
23/11/2012, 00h30
Charles1104

Merci beaucoup !
23/11/2012, 10h21
Daniel.C

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

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

Code:

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

23/11/2012, 11h35
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.