XL 2013 la fonction Si en VBA

Badie Mohammed · 4 Août 2020

Bonjour,
je suis débutant en VBA.
je voulais créer une nouveau colonne "Export" en Feuille 2 à partir de résultats de la feuille 1.
par exemple : Si dans la feuille 1 la cellule est un nombre , la cellule de de feuille 2 reste vide else export
exemple:
Dpt Export
01
DE Export

vous trouvez le fichier Excel ci joint .

job75 · 4 Août 2020

Bonjour Badie Mohammed,

Voyez le fichier joint et cette macro dans le code de Feuil2 :

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("A2:A" & Rows.Count).Clear 'RAZ
With Feuil1.UsedRange
    .Columns(1).Insert xlToRight 'insère une colonne auxiliaire
    .Columns(0) = "=1/ISERROR(-RC[1])"
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.Columns(0).SpecialCells(xlCellTypeFormulas, 1).EntireRow, .Columns(1)).Copy [A2]
    .Columns(0).Delete xlToLeft
End With
End Sub

Elle s'exécute quand on active Feuil2.

A+

Phil69970 · 4 Août 2020

Bonjour Badie Mohammed, le forum

Je te propose ceci

@Phil69970

XL 2013 la fonction Si en VBA

Badie Mohammed

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires