Discussion :

[bigs3232]

j'aimerais que quand je selectionne le range d352 à d355 avec la souris ,ca m'affiche la dernière colonne non vide c'est a dire ca m'affiche l'adresse de la cellule g352 voir photo

j'ai fais un code comme celà mais ca ne marche pas
merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test_col_vide()
col_deb = Selection.Column
For j = col_deb To col_deb + 6
If Application.CountA(Columns(j)) = 0 Then
dern_col = j: Exit For
End If
Next j
End Sub

[anasecu]

Bonjour,

Comme ceci cela devrait mieux fonctionner

Code :

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

1
2
3
4
5
6
7
8
Sub test_col_vide()
col_deb = Selection.Column
For j = col_deb To col_deb + 6
If Application.CountA(Cells(Selection.Row, j).Resize(Selection.Rows.Count, 1)) = 0 Then
dern_col = j: Exit For
End If
Next j
End Sub

[bigs3232]

merci anasecu ca a l'air de marcher mais pourquoi ajouter .Resize(Selection.Rows.Count, 1)

[Invité]

Bonjour,

Si l'onglet ne contient pas d'autres cellules non vides en dehors de ce tableau

Code :

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

1
2
3
4
5
 
         MsgBox ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).End(xlUp).Address
 
' ou pour trouver la colonne
         MsgBox ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

[bigs3232]

merci eric mais c'est celui de anasecu qui correspond à mes besoins
mais je garde ton code qui est utile

[Invité]

Quand tu auras le temps, tu devrais regarder l'utilisation des tables.

[bigs3232]

je ne connais pas .tu as un lien que je puisse regarder?

[Invité]

je ne connais pas .tu as un lien que je puisse regarder?

Le tuto de Silkyroad : Les tableaux dans Excel 2007

Sinon pour créer un tableau :

Pièce jointe 304416

Quand on y a goûté, il est difficile de revenir en arrière.

[bigs3232]

ah bon.je vais essayer alors mais le vba c'est quand meme plus rapide

[Invité]

ah bon.je vais essayer alors mais le vba c'est quand meme plus rapide

Justement, travailler en VBA avec une variable ListObject est beaucoup plus simple (de mon point de vue) qu'avec un onglet rempli de données à géométrie variable.
Dans le vidage d'écran de mon précédent message, la table s'appelle "Tableau1". L'avantage, l'aire est automatiquement définie. Le tableau peut être intégré parmi d'autres dans l'onglet, cela n'a pas d'importance.

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
 
 
Sub DerniereCellule()
 
Dim MaTable As ListObject
Dim I As Integer
Dim DerniereColonne As Long
 
        Set MaTable = ActiveSheet.ListObjects("Tableau1")
        With MaTable
             DerniereColonne = .ListColumns(.ListColumns.Count).Range.Column
             For I = .ListColumns.Count To 1 Step -1
                 DerniereColonne = .ListColumns(I).Range.Column
                 If WorksheetFunction.CountA(.ListColumns(I).DataBodyRange) > 0 Then Exit For
             Next I
             MsgBox "Dernière colonne : " & DerniereColonne
        End With
        Set MaTable = Nothing
 
End Sub

[bigs3232]

merci eric.je vais m y mettre pour tester ca en détail

[anasecu]

Bonsoir,

mais pourquoi ajouter .Resize(Selection.Rows.Count, 1)

Parce que 'Selection.Row' te donne la première ligne et 'Selection.Rows.Count' le nombre de lignes de ta sélection, puis le 1 pour la colonne.