Discussion :

[benoit13]

Bonjour,

Je souhaite qu'en cliquant sur un bouton de commande, le contenu d'un combobox vienne s'insérer dans une cellule d'une feuille excel.
J'aimerais que cette cellule soit la première vide de la colonne A.

Pour l'instant mon code me permet de remplir les lignes les unes après les autres avec une itération simple mais j'aimerais savoir s'il est possible d'écrire un code qui choisisse la cellule à remplir en s'assurant qu'elle est à l'origine vide et que celle immédiatement au dessus est remplie....
Je ne sais pas si je suis très clair mais peut-être quelqu'un arrivera-t-il à me comprendre...

Merci d'avance.

pour info voila mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Ligne as integer
Ligne=7 'la ligne 7 est en effet la première ligne vide et à remplir de ma feuille
 
Private Sub Ajoutercmd_Click()
    MsgBox ("Le matériel '" & Foragebox.Value & "' a été ajouté au matériel nécessaire sur le chantier")
    Worksheets("matériel").Cells(Ligne, 1).Value = Foragebox.Value
    Ligne = Ligne + 1
    Foragebox.Value = O
End Sub

[David2304]

Il te suffit d'intégrer 2 conditions, ce code devrait t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each cel In Range("A:A")
If cel.Row <> 1 Then
    If cel = "" And cel.Offset(0, -1) <> "" Then
    cel = MAVALEUR
    End If
Else
    If cel = "" Then
    cel = MAVALEUR
    End If
End If
Next

[fring]

Bonjour,

Code :

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

Range("A65535").End(xlUp).Offset(1, 0) = "toto"

[casefayere]

déjà bonsoir à tous,

à fring,

Range("A65535").End(xlUp).Offset(1, 0) = "toto"

y a t'il une différence importante entre ta proposition ci-dessus ou

Code :

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

Range("A2").End(xldown).Offset(1, 0) = "toto"

[fring]

La différence principale est celle-ci, supposons les cellules suivantes :

• A1...Toto
• A2...Titi
• A3...Tata
• A4
• A5...Tutu
• A6...Toto
• A7
• A8
• etc...

Code :

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

Range("A1").End(xldown).Offset(1, 0) = "toto"

va inscrire "toto" dans la cellule A4

Code :

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

Range("A65535").End(xlUp).Offset(1, 0) = "toto"

va inscrire "toto" dans la cellule A7

[casefayere]

Ok merci, je ferais gaffe car ce code je l'ai à foison (j'exagère)

Bonne soirée

[fring]

Pour être tout a fait correcte, malgré que Range("A65535") sera valable dans 99,999% des cas, cela va coincer sur un très gros tableau réalisé sur excel 2007 qui permet 1.048.576 lignes (65.536 lignes sur les versions antérieures)

Pour que la syntaxe soit opérationnelle peu importe la version du classeur, il est préférable de prendre l'habitude de l'écrire comme ceci :

Code :

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

Range("A" & Rows.Count).End(xlUp)

ou encore

Code :

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

Cells(Rows.Count, 1).End(xlUp)