Dans l'Array (cf aide VBA interne) TxtCat étant en troisième position donc forcément en colonne C !
Ce serait bien aussi de faire correspondre Resize avec la taille de l'Array ou vice-versa …
Version imprimable
Dans l'Array (cf aide VBA interne) TxtCat étant en troisième position donc forcément en colonne C !
Ce serait bien aussi de faire correspondre Resize avec la taille de l'Array ou vice-versa …
J'ai écris comme ça et ça marche beaucoup mieux. Merci de m'avoir dirigé vers la réponse.
Code:
1
2
3
4
5
6
7
8
9
10
11 Private Sub Cmb1_Click() With ThisWorkbook.ActiveSheet L& = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, 1) + 1 .Cells(L, 1).Resize(, 4).Value = Array(Me.TxtCat.Value, Me.TxtFS.Value, Me.TxtHF.Value, Me.TxtPage.Value) End With Me.TxtCat.Value = "" Me.TxtFS.Value = "" Me.TxtHF.Value = "" Me.TxtPage.Value = "" End Sub
De rien car le but c'est de t'apprendre à pêcher et non pas de te fournir du poisson ! (Confucius)
Et comme tu l'as maintenant constaté, en prenant son temps ce n'est vraiment pas compliqué …
Un grand merci à tous pour votre patience et votre aide.
Amicalement
René