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]

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]

Bonjour

Pourquoi pas un filtre auto puis un copier coller

[CelluleVide]

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,

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
    Set CellConf = Range("A2:C2")
    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
            Set CellConf = Application.Union(CellConf, Range("A" & i & ":C" & i))
        End If
    Next
    CellConf.Select
    Selection.Copy
    Workbooks.Add
    Range("A2").PasteSpecial Paste:=xlPasteAll
    Columns("A:C").EntireColumn.AutoFit    
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 ?

@+