Champs vides

JulienB · 4 Novembre 2009

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 · 4 Novembre 2009

Re : Champs vides

Bonjour le fil, JulienB

Par exemple:

Code:

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 · 4 Novembre 2009

Re : Champs vides

Merci soenda

Monique · 4 Novembre 2009

Re : Champs vides

Bonjour,

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

Avec ou sans doublons

Staple1600 · 4 Novembre 2009

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

Code:

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 · 5 Novembre 2009

Re : Champs vides

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

Code:

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

++

Champs vides

JulienB

XLDnaute Junior

soenda

XLDnaute Accro

JulienB

XLDnaute Junior

Monique

Nous a quitté

Pièces jointes

Staple1600

XLDnaute Barbatruc

JulienB

XLDnaute Junior

Discussions similaires