Coller en fonction d'un critère

Bonjour tout le monde,

J'aurai voulu savoir s'il était possible de coller des informations l'une sous l'autre en fonction d'un critère présent en A1.

Concernant le "copier l'un sous l'autre" j'ai déjà confectionné un code qui fonctionne (CF module 1 dans le document). Néanmoins, je n'arrive pas à trouver une formule adéquate pour qu'Excel colle ces données dans la colonne adéquate de la Feuil2 en fonction du critère donné en feuil1 cellule A1.

Pourriez vous s'il vous plait m'aider ?

Bonjour,

Une solution avec une recherche avec la méthode Find.

A+

Bonjour

Bonjour frangy

Si j'ai compris ta demande

Essayes

Option Explicit

Sub TestBis()
Dim cel As Range
Dim F1 As Worksheet, F2 As Worksheet

  Set F1 = Sheets("Feuil1")
  Set F2 = Sheets("Feuil2")

  Set cel = F2.Rows(1).Find(what:=F1.Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
  If Not cel Is Nothing Then
    F1.Range("A2:A" & F1.Range("A" & Rows.Count).End(xlUp).Row).Copy _
              F2.Cells(Rows.Count, cel.Column).End(xlUp).Offset(1, 0)
  Else
    MsgBox "Cible " & F1.Range("A1") & " non trouvée"
  End If
End Sub

Bonjour Banzai64 et Frangy,

Merci pour vos deux propositions : elles fonctionnent toutes les deux ! Génial !

P.S : Quelle différent y a t'il entre ces deux formules ? :s

Excellente journée à vous.

Bonjour

Le principe est le même

Le style change

Donc pas de différence tu peux employer celle que tu veux

Merci pour la précision