Sélectionner une ligne avec dernière cellule non vide inconnue
Bonjour!
Concernant le code VBA:
Ca fait un long moment que je cherche une solution pour sélectionner une ligne par exemple qui par de C1 et dont la dernière cellule utilisée n'est pas connue.
J'ai essayé différentes chose comme celle-ci :
Mais ça ne marche pas! merci encore pour votre aide!Code:Range("C1" & Rows.Count).End(xlToRight).Select
Pas clair:
Tu veux sélectionner la ligne qui correspond à la première cellule vide d'une colonne donnée?
exemple: j'ai 6528 valeurs en C qui vont donc de C1 à C6528, je voudrais donc sélectionner toute la ligne 6529, mais je ne sais pas que justement c'est la 6529eme ?
Bonjour fregoli!
Désolée j'ai mal noté les coordonnées! En fait je veux sélectionner une ligne en connaissant la cellule de départ mais pas celle d'arrivée. Par exemple sélectionner la ligne entre (1,C) et (1,J) car la dernière cellule utilisée après (1,C) c'est (1,J). Sauf que dans mon cas je ne connais pas cette dernière cellule! J'arrive pas à trouver comment faire!
(1,C) et (1,J) cela veut dire quoi précisément?
Tu recherche sur une ligne ou un colonne?
Tu veux dire la cellule C1 et la cellule J1 ?
Ou bien tu parles d'adressage relatif ?
Je pense que c'est de l'adressage relatif.
Je ne connais pas la dernière cellule de la ligne que je veux sélectionner, seulement la première. Donc ici oui ça serait de C1 à J1 mais dans mon cas je ne connais pas la dernière cellule (J1 ici). Je pense qu'il faut utiliser .end(xlToRight) mais je n'y arrive pas...
Bon,
Je n'ai pas tout compris.
Je ne sais pas si cela va te satisfaire, mais voilà un bout de code qui sélectionne les cellules d'une ligne, en commençant par la colonne "A" et en s’arrêtant à la dernière cellule non vide de la ligne de la cellule actuellement sélectionnée.
Code à copier-coller dans un module comme d'hab...
Exemple :Code:Option Explicit Public Sub selectRowByEmpty() ' c'est la macro à exécuter une fois que tu as sélectionné une cellule quelque part Dim debut As String Dim cellule As String debut = ActiveCell.Address cellule = searchEmptyByColumn(ActiveCell) Range(debut & ":" & cellule).Select End Sub Private Function searchEmptyByColumn(C As Range) As String Dim I As Long Dim ch As String Dim R As Long If C.Rows.Count <> 1 And C.Columns.Count <> 1 Then MsgBox "ne sélectionner qu'une cellule SVP, merci" Exit Function End If ch = Right(C.Address, Len(C.Address) - 1) R = CLng(Right(ch, Len(ch) - InStr(ch, "$"))) I = 1 Do While Range(convertIntoAddress(R, I)).Value <> "" I = I + 1 Loop searchEmptyByColumn = convertIntoAddress(R, I - 1) End Function ' ' convertion des indice Ligne, Colonne en chaine d'adressage d'une cellule ' exemple: 2,5 -> "E2" ' Private Function convertIntoAddress(ByVal L As Integer, ByVal C As Integer, _ Optional colOnly As Boolean = False) As String Dim Ligne As String Dim Colonne As String Dim N1 As Integer Dim N2 As Integer Ligne = Trim(Str(L)) Colonne = "" While C > 0 N1 = Int((C - 1) / 26) N2 = C - (N1 * 26) C = N1 Colonne = Chr(Asc("A") + N2 - 1) & Colonne Wend If colOnly Then convertIntoAddress = Colonne Else convertIntoAddress = Colonne & Ligne End If End Function
en ligne 5 tu as des données de la colonne "A" à la colonne "AP". La première cellule n'ayant rien est donc la "AQ5"
tu sélectionnes, en cliquant une cellule de la ligne en question (par exemple J5)
Tu fais "macro", tu cherches dans la liste déroulante "selectRowByEmpty", puis tu cliques sur "exécuter".
SI tout est bien comme indiqué, tu auras de sélectionnées les cellules "A5" jusqu'à "AP5".
maintenant, miam miam...
bon courage
Merci! Je pensais pas que c'était aussi long! Je regarde le premier module: lorsque je le lance tel quel ça fonctionne!
Par contre quand j'utilise searchemptybycolumn() dans mon code ça bug avec "sub ou function non défini". Je trouve pas la fonction searchemptybycolumn() sur le net c'est normale?
Est-ce que cette fonction peut aussi être utilisée avec les coordonnées d'une cellule plutôt que (activecell)?
Je regarde le reste...
Merci encore et bon ap!
Tu as essayé :Envoyé par -maroon-
Je pense qu'il faut utiliser .end(xlToRight) mais je n'y arrive pas...
?Code:ActiveCell.End(xlToRight).Select
Je suis désolé mais j'ai l'impression qu'on s'est mal compris!
Je ne part pas d'une cellule sélectionnée à la souris, mais juste d'une cellule dont je connais les coordonnées! Donc si c'est la cellule a(1,3) alors je veux sélectionner la ligne partant de cette cellule jusqu'à la dernière colonne non vide. C'est pourquoi j'ai essayé de remplacer activecell par les coordonnées.
Sur internet j'ai surtout trouver des exemple pour les colonnes, mais pas pour les lignes....
Je continu de regarder ce que tu m'as envoyé mais je ne sais pas si ça va fonctionner...
Je suis désolé mais j'ai l'impression qu'on s'est mal compris!
Je ne part pas d'une cellule sélectionnée à la souris, mais juste d'une cellule dont je connais les coordonnées!Code:Range("C1").End(xlToright).Select 'non testé 'ou Range("C1").SpecialCells(xlCellTypeLastCell).select 'non testé
Merci pour ton aide!
Alors j'ai trouvé deux codes:
code 1:
sélectionne toute la ligne de C1, de la 1ère à la dernière colonne non vide.Code:Range("C1").entirerow.select
code 2:
sélectionne la ligne de C1 à partir de C1 jusqu'à la dernière colonne non vide vers la droite, et c'est celui-ci que je voulais!Code:Range("C1", Range("C1").End(xlToRight)).Select
Merci encore!
J'avais compris que tu voulais sélectionner uniquement la dernière cellule !
Re,
Oui c'est ce que j'ai vu dsl!
Et merci encore!
Désolé pour le retard.
searchemptybycolumn() est une fonction qui est déclarée dans le module lui même (relit l'ensemble et tu la trouveras). C'est une fonction déclarée avec l'attribut Private, ce qui signifie qu'on ne peut pas l'appeler en dehors du module lui même.
