Discussion :

[Fdc_53]

Bonjour,


Je n'arrive pas à avoir la première cellule Vide dans mon tableau.
Mon fichier est au format tableau du coup ma macro identifie la première ligne après mon tableau

Je souhaite la première cellule vide en colonne "C" au sein de mon tableau.

Code :

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

1
2
3
4
5
6
7
'on définit la première ligne vide
    Sheets("DDA DDR").Select
    If Sheets("DDA DDR").Range("C10") = "" Then
        I_lg = 2
    Else
        I_lg = Sheets("DDA DDR").Range("C10").End(xlDown).Row + 1
    End If

Merci de votre aide.

[BENNASR]

bonjour
pour insérer un 10 dans la première ligne non vide de mon tableau je fais avec :

Code :

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

Range("Tableau1").Rows(1).End(xlDown).Offset(1, 0) = 10

voir cette discussion

https://www.developpez.net/forums/d1...gne-d-tableau/

[Philippe Tulliez]

Bonjour,
S'il s'agit de trouver la première cellule vide dans une colonne et donc pas la suivante libre

Exemple pour la 2ème colonne d'un tableau structuré nommé T_Param

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t11()
  Dim rng As Range
  Dim Cell As Range
  Set rng = Range("T_Param").ListObject.ListColumns(2).DataBodyRange
  On Error Resume Next
  Set Cell = Range("T_Param").SpecialCells(xlCellTypeBlanks)(1)
  If Err.Number Then
     MsgBox "Pas de cellule vide"
    Else
     MsgBox "Première cellule vide " & Cell.Address
  End If
  On Error GoTo 0
  Set rng = Nothing: Set Cell = Nothing
End Sub

Il est possible également de remplacer l'indice 2 par le nom de la colonne (Exemple Libellé)

Code :

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

Set rng = Range("T_Param").ListObject.ListColumns("Libellé").DataBodyRange

Attention qu'il y a une limite de lignes, je n'ai pas mes notes sous la main, pour SpecialCells

[Fdc_53]

Merci pour ton retour. Elle va me servir pour une autre partie de mon code.

Je ne comprends pas pourquoi mais ma macro fonctionne, alors qu'elle ne fonctionnait pas avant.