Sélectionnez une ligne en entière VBA Résolu

Question

Bonjour,
Je voulais savoir comment peut-on sélectionnez une ligne entière(comprenant plusieurs colonnes). Sachant que le critère pour sélectionnez ces lignes est que la valeur de la cellule de la 7ème colonne doit être différente de zéro.
merci de répondre assez rapidement

giheller · Answer

bonjour,
for (i;i<limite;i++)
   if (range("G"+cstr(i)).value = 0 then  Rows(" + cstr(i) + ":" + cstr(i) + ").Select
next i

amigo · Answer

Bonjour

Soit i le n° de  la ligne en question

If range("G" & i)<>0 then   Rows(i & ":" & i).Select

A+.

amigo · Answer

Salut,

Ce que je t'ai donné c'est juste le code pour selectionner une ligne donnée, ce n'est pas un programme ni meme une macro.

Pour faire une macro, il faut plus d'éléments, ou commence le tableau et ou il finit, une fois la ligne séléctionnée qu'est ce qu'on en fait... Tu ne le dis pas. On suppose alors que tu sais monter une macro et qu'il te manque un petit coup de pouce pour te débloquer.

Voilà, si tu ne connais rien en programmation, il faut le dire aussi.

Ciao.

Nico0044 · Answer

Merci A.lupin, ca sélectionne toutes les lignes du tableaux mais est-ce que c'est possible de faire sélectionner seulement les lignes du tableau qui ont en colonne Y des cellules avec des valeurs non nulles ? Si oui vous pouvez me l'indiquer svp.
Et oui je suis novice en programmation donc c'est pour ça que votre aide m'est très précieuse

Nico0044 · Answer

Voici mon début de programme:

Private Sub Barchiver_Click()
Dim Limite As Long
    Range("Y2").Select
    While (ActiveCell.Value <> 0)
        ActiveCell.Offset(1, 0).Select
    Wend
    Limite = (ActiveCell.Row - 1)
    Range("A2:AA" & Limite).Select

Avec ce programme cela selectionne bien les premières lignes avec des cellules de la colonne Y différent de zéro. Mais des qu'il y a un zéro il ne vérifie pas les lignes suivantes!!

amigo · Answer

Bonjour,

Voilà ta macro

Elle surlignera en jaune les lignes dont la colonne G est différente de 0.
Colle ce code dans un module et execute par le menu Outis -> Macros ...

Sub Macro1()
Dim i As Integer, fin As Integer
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select   
    For i = 1 To fin
        If Range("G" & i).Value <> 0 Then
        Range(i & ":" & i).Select
        With Selection.Interior
           .ColorIndex = 6
           .Pattern = xlSolid
        End With
        End If
    Next
    Range("A1").Select
End Sub


Fallait pas te vexer, y-a pas de mal à dire qu'on ne sait pas.

Salut.

Nico0044 · Answer

Ce n'est pas grave giheller mais est ce que tu peux m'aider ou pas sur du VBA, voici le debut de mon programme:

Private Sub Barchiver_Click() 
Dim Limite As Long 
Range("Y2").Select 
While (ActiveCell.Value <> 0) 
ActiveCell.Offset(1, 0).Select 
Wend 
Limite = (ActiveCell.Row - 1) 
Range("A2:AA" & Limite).Select 

Avec ce programme cela selectionne bien les premières lignes avec des cellules de la colonne Y différent de zéro. Mais des qu'il y a un zéro il ne vérifie pas les lignes suivantes!!

ou sinon comme solution c faire un tri de cette colonne en décroissant, comme ca les valeurs zéro seraient en dernière position, mais comment programmer pour que le tri se fasse des l'ouverture d'excel???
Bon appétit v manger lol

amigo · Answer

Bonjour,

Voilà ta macro

Elle surlignera en jaune les lignes dont la colonne Y est différente de 0.

Private Sub Barchiver_Click() 
Dim i As Integer, fin As Integer
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select   
    For i = 1 To fin
        If Range("Y" & i).Value <> 0 Then
        Range(i & ":" & i).Select
        With Selection.Interior
           .ColorIndex = 6
           .Pattern = xlSolid
        End With
        End If
    Next
    Range("A1").Select
End Sub

Tu ne veux pas essayer?

Utilisateur anonyme · Answer

Bonjour,

Tres etrange, je ne vois pas l'intervention que j'ai fait hier !

Lupin

amigo · Answer

Si, on peut le faire

Sub Private Sub Barchiver_Click
Dim i As Integer, fin As Integer
Dim sel As String
sel = ""
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select
    For i = 1 To fin
        If Range("Y" & i).Value <> 0 Then
           sel = sel & i & ":" & i & ","
        End If
    Next
    sel = Left(sel, Len(sel) - 1)
    Range(sel).Select
'        With Selection.Interior
'           .ColorIndex = 6
'           .Pattern = xlSolid
'        End With
End Sub

Seulement dès que tu clic dans une cellule ça se déselectionne.

A la place de
'        With Selection.Interior
'           .ColorIndex = 6
'           .Pattern = xlSolid
'        End With
il faut que tu y mettes les instructions traitant la selection, par exemple copier, effacer ....
qu'est ce que tu veux faire exactement?

amigo · Answer

Oui , tout est possible, mais combien vous etes sur ce coup?

On va tout mélanger. On temine d'abord avec Nico0044, après on verra.

A+.

Nico0044 · Answer

Je suis tout seul lol

amigo · Answer

Ah! bon, parce que il y a Basketteur qui vient de poser une question sur le même sujet, je pensais qu'il y avait toute une équipe sur l'affaire.

Sinon ça marche  comme tu voulais?

amigo · Answer

Tu n'as pas pris la dernière macro

j'ai enlevé la partie  du code qui met en couleur.
il ne faut pas enlever l'apostrophe en début de ligne sinon tu remet la couleur.
l'apostrophe veut dire que la ligne est un commentaire et elle ne sera pas executée.

je te recopie la macro sans les commentaires


Sub Private Sub Barchiver_Click
Dim i As Integer, fin As Integer
Dim sel As String
sel = ""
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select
    For i = 1 To fin
        If Range("Y" & i).Value <> 0 Then
           sel = sel & i & ":" & i & ","
        End If
    Next
    sel = Left(sel, Len(sel) - 1)
    Range(sel).Select
End Sub


Cette fois ça marche?

bobtipitt · Answer

Moi je vous trouve tres intelligent ceux qui repondre a ces question...

Nico0044 · Answer

Merci bcp pour ton aide amigo mais ton dernier programme permettant de sélectionner les lignes ne fonctionnent pas.
Il y a peut être une modif que tu ne m'a pas dit.

amigo · Answer

Bonjour,

C'est bien la colonne Y que tu doit tester? Vérifie que cette colonne contient des nombres et s'il y a bien des lignes avec la colonne Y à 0.00

Avant ça mettait les lignes en jaune, maintenant il ne fait que séléctionner les lignes. Mais dés que tu clic dans le tableau la séléction est perdue. C'est pour ça qu'il faut compléter la macro par une action portant sur la séléction.
Dans l'exemple, l'action était de surligner en jaune la sélection. Toi, il faut que tu lui dise ce qu'il faut faire à la place.

A+.

amigo · Answer

Oui bien sur,

Ce que tu vas faire, c'est enregistrer une macro de cette action, ensuite on pourra intégrer le code de cette macro à la macro qui automatise ça pour tout le tableau.

Menu Outils Macros Nouvelle Macro , Donner un nom (ex: macro1)
Faire manuellement la sélection de quelques lignes qui correspondent au critère (col Y <> 0)
Couper, aller dans la feuille choisie et Coller.
Quand c'est fait, arreter l'enregistrement. Menu Outils Macros Arreter l'engeristrement.

Dans VB editor Ouvrir le module ou se trouve la macro enregistrée et postes moi le code.

A+.

amigo · Answer

C'était pas la peine d'en faire autant, la partie interessante est là:

Range("A2:Y9564").Select <--- la selection
Range("Y9564").Activate   <--- clic dans la cellule Y9564, la selection est perdue
Selection.Copy <--- copie la cellule Y9564

Tu vois le problème?Tu clic dans une cellule et tu perd la selection.
Et après qu'est ce qu'on fait? Où coller la la séléction? Tu n'as pas été jusq'au bout.

A+.

amigo · Answer

Bon OK,

alors essaye comme ça:

Sub Private Sub Barchiver_Click
Dim i As Integer, fin As Integer
Dim sel As String
sel = ""
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select
    For i = 1 To fin
        If Range("Y" & i).Value <> 0 Then
           sel = sel & i & ":" & i & ","
        End If
    Next
    sel = Left(sel, Len(sel) - 1)
    Range(sel).Select
    Selection.Copy
End Sub

Ensuite ouvre un classeur excel et va dans Edition Coller. Tu auras peut-etre des lignes blanches intercallées parce que la copie se fait à l'identique de la sélection.
Si tu colles dans un fichier texte, la mise en forme est perdue, il y a des chances que ce soit illisisble.

Ammuse toi bien.

Sélectionnez une ligne en entière VBA

21 réponses

Discussions similaires

Newsletters