problème insertion de données dans feuille excel

Version imprimable

27/12/2014, 15h58
UDSP50

problème insertion de données dans feuille excel

Bonjour à tous

dites moi sur mon formulaire j'ai 3 textbox

TextBox1
TextBox2
TextBox3

quand je clic sur mon bouton (commandbutton1) le texte de la :

textbox1 s'affiche sur ma feuil1 dans le cellule j6
textbox2 s'affiche sur ma feuil1 dans le cellule j7
textbox3 s'affiche sur ma feuil1 dans le cellule j8

ça, ça marche bien

ce que je n'arrive pas à coder c'est de lui dire si j6 j7 et j8 sont vide inscrire dedans mais si déjà occupé par des données alors écrire en k6 k7 et k8 et ains de suite

en espérant être claire dans ma demande

merci a tous

Bonjour,
Ci-dessous un exemple de code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Exemple()
    Dim col As Integer
    col = 10 'colonne J = 10
    Cells(6, col).Activate
    'si cette cellule n'est pas vide
    If Not ActiveCell = "" Then
        'trouve la première cellule non vide en partant de la dernière colonne de la feuille
        'et en simulant l'appui de Ctrl+Flèche de gauche
        col = Cells(6, Columns.Count).End(xlToLeft).Column + 1
    End If
    Cells(6, col) = "TextBox1"
    'ensuite on décale d'une ligne puis de 2
    Cells(6, col).Offset(1, 0) = "TextBox2"
    Cells(6, col).Offset(2, 0) = "TextBox3"
End Sub

A bientôt, si besoin d'autres renseignements.

Ton code m'a super aidé je me suis entraîné dessus pour arriver à ce code qui me satisfait.
je le dépose pour qui cela intéresse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub CommandButton10_Click()
 
'recopie les données dans la feuille de donnée excel  - - - - Nom et Prénom
Dim Lig As Long
Lig = 7 'première ligne à vérifier
Do While Not IsEmpty(Range("K" & Lig))
    Lig = Lig + 1
Loop
'Copie les données dans les cellules
    Cells(Lig, "K") = Admin.Nom & " " & "-" & " " & Prénom
 
End Sub

Encore merci A+