Discussion :

[trane51]

Bonjour à tous,

Petit nouveau sur le forum et débutant en VB, je voudrai selectionner les cellules de A à K de la première ligne vide, j'ai fais cela comme ça:

Range("A:K" & ligne_active_base + 1).Select

Problème, VB ne veut pas le prendre quelqu'un aurait-il une solution??

Merci beaucoup

[MarcelG]

Bonjour et Bienvenu sur ce forum,

Si les cellules des colonnes A à K sont toutes saisies, alors tu peux consulter les liens indiqués dans cette discussion

Ici

Si une ou plusieurs colonne(s) est/sont vide(s) dans chaque ligne informée, une proposition de code

Code :

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

1
2
3
4
5
6
7
8
Public Sub essai()
With ActiveSheet
        With .UsedRange
                lignvide = .Offset(.Rows.Count, 0).Row
        End With
        .Range("A" & lignvide & ":K" & lignvide).Select
End With
End Sub

[trane51]

Merci d'avoir répondu rapidement!!

je suis un peu perdu

Pour le moment j'ai fait cela:

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
     'selection derniere ligne.
            Sheets("Feuil1").Select
            valeurA5 = Range("A5").Value
            If valeurA5 = "" Then
            Range("A5").Select
            Else
            Range("A4").Select
            Selection.End(xlDown).Select
            ligne_active_base = ActiveCell.Row
            Range("A" & ligne_active_base + 1).Select
 
            End If
 
 
    'Ecriture sur la ligne.
            Range("A" & ligne_active_base + 1) = TextBox1
            Range("E" & ligne_active_base + 1) = TextBox2

J'aimerai maintenant fusionner les cellules de A à D, de E à I, J à K; Ensuite les encadrer. Problème, je n'arrives pas à intégrer le fait que je change de ligne à chaque nouvelle entrée...

[MarcelG]

Salut,

As-tu lu la discussion que je t'ai signalée? C'est en cherchant, et en échaouant, que tu vas progresser.

Au demeurant.

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("Feuil1").Select
valeurA5 = Range("A5").Value
If valeurA5 = "" Then
Range("A5").Select
Else
Range("A4").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select

Ici, comme souvent, la méthode

Code :

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

Select

ne sert à rien.

Si toutes les occurences de tes saisies de la colonne A sont informées, alors tu dois rechercher la 1ère cellule vide de la colonne A, et ce sans te focaliser sur les lignes 4 ou 5.

Essaie de retouver au moins en colonne A la 1ère ligne vide de ta zone de saisie en consultant, dans la discussion signalée, le tutoriel d'Ousskelnor.

Puis reviens.