Sélection multiple

[Moulinois]

Bonjour,

Je cherche à faire une sélection multiple.
Je voudrais sélectionner toutes les cases de la colonne en face desquelles il y a (en colonne B) un "1". Comment puis-je les avoir toutes dans la même sélection en vue de les copier et de les coller ailleurs ?


Merci de votre aide.

 

[thomlau]

Re : Sélection multiple

Bonjour Moulinois, le forum.

Une petite approche qui résoud ton problème. Il doit y avoir plus simple, mais je sèche.

Bonne journée à tous

 

[chris]

Re : Sélection multiple

Bonjour

Pourquoi pas un filtre auto puis un copier coller

 

[CelluleVide]

Re : Sélection multiple

Bonjour,
Peut etre qu'un simple filtre auto peut te permettre de faire ce que tu veux.
une fois la colonne B filtrée tu peux copier coller les cellules qui t'interesses.

A+

 

[Moulinois]

Re : Sélection multiple

Re,

Merci pour vos idées.

Je vous propose à mon tour ma solution (non plus pour A mais pour A:C) :

Sub Copie()
Dim CellConf As Range
Dim Colonne As String
    [COLOR="DarkOrange"]Set CellConf = Range("A2:C2")[/COLOR]
    Colonne = InputBox("Indiquez LA colonne (D, E, F, G, ...) à l'aide de laquelle extraire une s_mag :", "Extraction de s_mag")
    For i = 2 To Range("A65000").End(xlUp).Row
        If Range(Colonne & i) = 1 Then
            [COLOR="Red"]Set CellConf = Application.Union(CellConf, Range("A" & i & ":C" & i))[/COLOR]
        End If
    Next
    CellConf.Select
    [COLOR="Silver"]Selection.Copy
    Workbooks.Add
    Range("A2").PasteSpecial Paste:=xlPasteAll
    Columns("A:C").EntireColumn.AutoFit[/COLOR]    
End Sub

Cela fonctionne mais, pour que la ligne en rouge fonctionne, je dois avoir celle en orange. Normalement la seconde ligne devrait toujours avoir un "1" devant mais si jamais ça devait ne plus être le cas, je la sélectionnerais quand même
On doit pouvoir s'abstenir de la ligne orange. Savez-vous comment ?

@+