Discussion :

[ThSPB]

Bonjour

Une petite question qui a tu être posée 100 fois.

Dans une feuille je crée avec une macro 3 tableaux croisés les uns en dessous des autres.
Dont la 1ère colonne se situe sur la colonne G.
Le premier va de la ligne 3 jusqu'à 85 (Selon le mois d'édition)
Le second va de la ligne 92 à 185, toujours selon le mois d'édition
Le 3ème va de la ligne 192 à x

Ce que j'aimerai que la macro fasse ;
Ne laisser qu'une ligne vide entre le 1er TCD et le second et la même chose entre le second et le 3ème.

J'ai écrit le code suivant ;

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
21
22
23
Sub LigneVideCause()
 
   Dim DernLigne As Long
 
DernLigne = Range("190,7" & Rows.Count).End(xlUp).Row
   LL_Fin = 191
   LL = DernLigne
   cc = 7
   I1 = 0
 
    For LL = LL_Fin To DernLigne Step -1
 
        Sheets("TCD").Select
        If Sheets("TCD").Cells(LL, cc).Value = "" Then
 
                    Rows(LL).Select
                    Selection.Delete
                    LL_Fin = LL_Fin
        End If
 
    Next
 
End Sub

Ce code est lancé par un "Call" après la création des TCD
Mais il ne fonctionne pas. Pouvez-vous me dire pourquoi ?

[Nikodemus]

Salut,
A quoi correspond : Range("190,7"...) ?

[ThSPB]

Bonjour

A la dernière ligne non vide en partant de la cellule G190

C'est ce que j'espère

Merci de ton aide

[QuestVba]

Bonjour

esaaie ceci

Code :

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

1
2
Dim DernLigne As Long
DernLigne = Range("g190").End(xlDown).Row