Supprimer des lignes vides MAIS...

C'est possible, par exemple tu peux faire ça comme ceci :

Sub test_clic()

aa = Range("A" & Rows.Count).End(xlUp).Row

u = 0
For i = 1 To aa
    If Range("A" & i) = "" Then
    u = u + 1
    Else
    u = 0
    End If
    If u > 1 Then
    MsgBox i
    Exit For
    Else
    End If
Next i

End Sub

Dès qu'il trouve deux lignes vides alors une MsgBox s'ouvre et te dit de qu'elle ligne il s'agit. Ensuite la macro s'arrête.
Est ce que tu aimerais qu'elle fasse quelque chose d'autre de spécifique ?

Merci Kusco de ta réponse. C'est génial.

Avec seulement cette ligne, tu réponds à ma question:
"aa = Range("A" & Rows.Count).End(xlUp).Row"
Tu peux me la décrire stp par contre.

J'aurais plein de questions car j'essaye de faire des macros depuis qq temps mais je m'attaque toujours à de trés gros codes et je ne les finis pas. Mais voilà, petit à petit, j'avance. et celle-là, j'y tiens.

Merci encore pour tout. Et surement à bientôt sur le forum.

aa = Range("A" & Rows.Count).End(xlUp).Row
'aa est une variable quelquonque. On l'utilise souvent pour des tableaux j'aurais plutôt du l'appeler o, u, y ou quelque chose comme ça, le nom importe peu mais ce sont les "moeurs"
'Range donc pour sélectionner une cellule sous le format "A1"
' "A" correspond à la colonne A
' & permet de coller deux éléments ensemble notamment des variables.
' Rows.Count Rows comme lignes et Count comme compter. Donc ça compte le nombre de ligne de ta colonne.
' .End(xlUp).Row est une fonction qui permet en commençant par la fin, de remonter les lignes jusqu'à la dernière. En gros de trouver la dernière ligne utilisée.

Tu peux utiliser aa = Range("A" & Rows.Count).End(xlUp).Row + 1 pour avoir la dernière ligne vide.

N'hésites pas à me demander d'autres questions, je n'ai pas la science infuse mais je t'aiderais au maximum dans la mesure du possible.

Et rappelle toi, aucune question n'est bête, le seul truc bête c'est de ne pas poser cette question ! ;)

Merci encore pour ton aide.

Mais j'avance mon programme doucement.
Voilà ce que j'ai fais. Tu verras surement des défauts.

J'ai qq notions de VBA.

PROGRAMME:

Option Explicit

Dim sReference As String
Dim sNumeroAffaire As String

Dim i As Integer
Dim iDerniereLigne As Integer

Dim sVTE() As String

Sub Etude()

sNumeroAffaire = Application.InputBox("Entrez le numéro d'affaire", "Demande de numéro d'affaire", "SY01683")

iDerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    
    With ThisWorkbook.Sheets(1)
        For i = 1 To iDerniereLigne
                sReference = .Cells(i, 1).Value
            If Left(sReference, 7) = sNumeroAffaire Then
                ReDim Preserve sVTE(1 To 2, 1 To i)
                sVTE(1, i) = .Cells(i, 1).Value
                sVTE(2, i) = .Cells(i, 2).Value
            End If
        Next i
        MsgBox "c'est fini"
    End With
End Sub

Le programme est loin d'être fini.
Par exemple: Dans la variable tableau, il y a aura des doublons, il faudra que je les supprime.

A+

Bonjour,

Merci à vous deux pour toutes ces informations très intéressantes, j'en prends note et j'essaye de les appliquer.

A très bientôt sur le forum.