Discussion :

[JBusnel]

Bonjour,

Je souhaiterais pouvoir descendre d'une ligne si une cellule (la premiere de la ligne n'est pas vide). Cependant je souhaiterais que ceci s'applique a toutes mes variables.

Voici le code que j'ai pour le moment :

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
17
18
19
20
 
Private Sub CommandButton1_Click()
 
 
    Dim numElevage
        numElevage = Workbooks(1).Worksheets("feuille1").Range("B11")
        Range("A2") = numElevage
 
 
    Dim nomElevage
        nomElevage = Workbooks(1).Worksheets("feuille1").Range("B12")
        Range("B2") = nomElevage
 
    Dim numEchant
        numEchant = Workbooks(1).Worksheets("feuille2").Range("C8")
        Range("C2") = numEchant
 
 
 
End Sub

Le but de ce bouton étant de pouvoir a chaque clic, récupérer les différentes données présentes dans différentes feuilles, ces dernières changeant en fonction du nom/num. Me permettant ainsi de tout archiver.

Je précise aussi qu'il n'y a pas forcément de données dans toutes les colonnes (je n'en ais mis ici que 3 pour l'exemple), c'est pourquoi je veux vérifier que la cellule nom ou num est bien "non vide" étant donné qu'il y aura toujours un nom et un num associé.

J'espère avoir été clair dans l'explication de mon problème,

Bonne soirée,

JBusnel

[jfontaine]

Bonjour,

Si je comprend bien tu veux ecrire sur la prochaine ligne vide

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
17
 
Dim Ligne as Long
Dim numElevage as String
Dim nomElevage as String
Dim numEchant as String
 
'utiliser la colonne A si c'est cette colonne qui contient une information obligatoirement renseignée
Ligne =  Range("A:A").End(xlDown).Row + 1
 
 
numElevage = Workbooks(1).Worksheets("feuille1").Range("B11")
nomElevage = Workbooks(1).Worksheets("feuille1").Range("B12")
numEchant = Workbooks(1).Worksheets("feuille2").Range("C8")
 
Range("A" & Ligne) = numElevage
Range("B" & Ligne) = nomElevage
Range("C" & Ligne) = numEchant

[JBusnel]

Très bien, ça fonctionne nickel,

Merci beaucoup

Edit : J'ai effacé toutes mes lignes et dans ce cas, j'ai une erreur lors que je commence mon tableau, y a-t-il un moyen de corriger ceci ? (en mettant une condition d'écriture si la cellule est vide ?)