Champs vides

[JulienB]

Bonjour le forum,

Comment allez vous en cette belle journée de grippe ?

J'ai un probleme !

J'ai dans une feuille ("feuil2") , deux colonnes ("A" et "B")
Dans la colonne "A" , j'ai des noms et dans la colonne "B" des informations parfois vides.

L'idée est que dans une feuille ("feuil1") je puisse lister les informations de la colonne "A" ayant la colonne "B" à vide.

(je sais qu'il existe le filtre auto mais cela ne suffit pas)


Si quelqu'un pouvait m'aider !

JulienB

 

[soenda]

Re : Champs vides

Bonjour le fil, JulienB

Par exemple:

Sub b()
 
    With Feuil2
        If .[A1] = vbNullString Then Exit Sub
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, -1).Copy Feuil1.[A1]
    End With
 
End Sub

A plus

 

[JulienB]

Re : Champs vides

Merci soenda

 

[Monique]

Re : Champs vides

Bonjour,

Par formule
Formule matricielle, à valider par ctrl, maj et entrée

Avec ou sans doublons

 

[Staple1600]

Re : Champs vides

Bonsoir à tous

(je sais qu'il existe le filtre auto mais cela ne suffit pas)

Si, si cela peut suffire avec un peu de VBA en plus

With Application
    .ScreenUpdating = False
        With Feuil2
            .Range([B1], [B65536].End(xlUp)).AutoFilter 1, "="
            .AutoFilter.Range.Offset(1, -1).SpecialCells(xlCellTypeVisible).Copy Feuil1.[A1]
            .AutoFilterMode = False
        End With
    Feuil1.Activate
    .ScreenUpdating = True
End With

 

[JulienB]

Re : Champs vides

MErci a tous pour ces reponses j'ai repris le code de soenda à savoir

With Sheets("Données")
        If .Range("A1") = vbNullString Then Exit Sub
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, -1).Copy Feuil1.[A37]
        .Range("B1:B" & .[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(, 10).Copy Feuil1.[D37]
    End With

++