Recherche ligne vide a partir de la 14eme

Bonjour,

j'ai un userform qui me permet de remplir une base de données.

J'utilise la ligne de code ci-dessous afin que de renseigner la première ligne vierge de mon tableau mais je souhaite que les 14 premières ligne de mon tableau reste vierges.

Range("A1048576").End(xlUp).Offset(1).Select

Merci de votre aide.

Jerome

Bonjour,

Difficile de répondre sans voir ni le fichier concerné, ni la macro dans laquelle s'intègre ce fragment de code... Voilà une piste :

If Selection.Row <= 14 Then Range("A15").Select 'A ajouter après ton instruction

Néanmoins, je déconseille l'utilisation des "Select", souvent inutiles...

Merci Pedro pour cette piste mais ça n'a pas fonctionné, mes données ont été enregistrées en ligne 2.

Voici le bout de code qui concerne mon besoin.

With Sheets("CDE")

Range("A1048576").End(xlUp).Offset(1).Select

If Selection.Row <= 14 Then Range("A15").Select

.Cells(RecordNumber, 1) = analytique.Value

.Cells(RecordNumber, 5) = DEPENSE.Value

.Cells(RecordNumber, 6) = ENGAGEMENT.Value

.Cells(RecordNumber, 7) = fourname.Value

.Cells(RecordNumber, 8) = cboMember.Value

.Cells(RecordNumber, 9) = OBJET.Value

.Cells(RecordNumber, 10) = MONTANTTOTAL.Value

End With

• Il y a quoi dans ta variable RecordNumber ?
• A quoi sert ton instruction ci dessous ?

Range("A1048576").End(xlUp).Offset(1).Select

Plutôt que de divulguer ton code au compte goutte, je préférerai avoir le fichier (anonymisé ou un fichier illustratif qui reprend les principaux éléments) dans lequel il se trouve...

Bonjour Jérôme, Pedro,

je propose ce code VBA (non testé) :

Sub Essai()
  Dim lig&
  With Worksheets("CDE")
    lig = .Cells(Rows.Count, 1).End(xlUp)(2).Row
    If lig < 15 Then lig = 15
    With .Cells(lig, 1)
      .Value = analytique.Value
      .Offset(, 4) = DEPENSE.Value
      .Offset(, 5) = ENGAGEMENT.Value
      .Offset(, 6) = fourname.Value
      .Offset(, 7) = cboMember.Value
      .Offset(, 8) = OBJET.Value
      .Offset(, 9) = MONTANTTOTAL.Value
    End With
  End With
End Sub

dhany

Super merci dhany ça fonctionne parfaitement

Bonne soirée

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne soirée à toi aussi !

dhany

Bonjour tout le monde

Jusqu'aujourd'hui j'utilisait le code ci-dessous pour coller certaines données dans la première ligne vide de mon onglet "CDE".

'COPIER LES CELLULES DANS L'ONGLET CDE

Dim lig&

With Worksheets("CDE")

lig = .Cells(Rows.Count, 1).End(xlUp)(2).Row

If lig < 14 Then lig = 14

With .Cells(lig, 1)

.Value = DEPENSE.Value

.Offset(, 3) = centre1.Value

.Offset(, 5) = ENGAGEMENT.Value

.Offset(, 6) = fourname.Value

.Offset(, 7) = "265" & Format(RecordNumber - 1, "000")

MONTANTTOTAL.Value = Format(Replace(MONTANTTOTAL.Text, ",", "."), "0.000")

.Offset(, 9) = MONTANTTOTAL.Value

End With

End With

Tout fonctionnait bien mais mon boss m'a ajouté une ligne de sous-totaux en ligne 115.

est il possible d'utiliser un code similaire pour aller coller mes données dans la première ligne vide mais uniquement entre les lignes 14 et 114 ?

Merci d'avance.

Bonjour,

Il te suffit de remplacer "Rows.Count" par 115.

Attention, si la dernière ligne complétée est la ligne 114, tu risques d'écraser la ligne 14.

Merci beaucoup Pedro22 !

Ca fonctionne parfaitement !