Prendre valeur en Feuille2 à 2 colonnes, pour la ramener en une colonne Feuille1

benni.mvr

XLDnaute Nouveau
Bonjour à tout le Forum, :)

Je cherche à ramener une valeur dans une colonne avec un classeur à deux feuilles.

J'ai mis ci joint un petit fichier xlsx pour l'exemple.

En Français, ça ressemblerais à cela :

SI Feuil2!A1 est vide alors je prend Feuil2!B1 pour le mettre en Feuil1!A1, et SI pas vide, je prend Feuil2!A1 pour le mettre en Feuil1!A1

Mais en formule, je galère...:confused:

Merci d'avance de votre retour.
 

Pièces jointes

  • Classeur1.xlsx
    9.4 KB · Affichages: 32
  • Classeur1.xlsx
    9.4 KB · Affichages: 36

DoubleZero

XLDnaute Barbatruc
Re : Prendre valeur en Feuille2 à 2 colonnes, pour la ramener en une colonne Feuille1

Bonjour, benni.mvr, tototiti :D, le Forum,

Une autre suggestion, avec le présent code :

Code:
Option Explicit
Sub Ceci_ou_cela_copier()
    Dim c As Range
    For Each c In Sheets("Feuil2").[b:b].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If c.Offset(, -1) = "" Then
            c.Copy Destination:=Sheets("Feuil1").Range(c.Address).Offset(, -1)
        Else
            c.Offset(, -1).Copy Destination:=Sheets("Feuil1").Range(c.Address).Offset(, -1)
        End If
    Next
End Sub

A bientôt :)
 

benni.mvr

XLDnaute Nouveau
Re : Prendre valeur en Feuille2 à 2 colonnes, pour la ramener en une colonne Feuille1

Une merveille !!

C'était si simple... je n'avais pas mis la bonne valeur au centre en fait.

Grand merci Tototiti2008


Bonjour Double Zero,

Merci pour le code, si je vois que j'ai trop de ligne à traiter, je m'en servirais en le rattachant à un petit bouton pour plus de rapidité.

Grand merci à vous deux, Bonne soirée Forum ;)
 
Haut Bas