Problème de remplissage automatique

[piskely]

Bonjour à tous,
Dans le but d'automatiser un fichier (Projet personnel) j'ai besoin de vos solutions.
Vous trouverez les explications dans le fichier excel (test)
Merci d'avance

 

[Robert]

Re : Problème de remplissage automatique

Bonjour Piskely, bonjour le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range 'déclare la varaible R (Recherche)
Dim I As Byte 'déclare la varaible I (Incrément)
Dim DEST As Range 'déclare la varaible DEST (cellule de DESTination)

If Target.Address <> "$A$3" Then Exit Sub 'si le changement a lieu ailleurs qu'en A3, sort de la procédure
Range("A6:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).ClearContents 'efface les anciennes données
With Sheets("Données") 'prend en compte l'onglet "Données"
    Set R = .Columns(1).Find(Target.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur de A3 dans la colonne A de l 'onglet "Données")
    If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
        For I = 1 To 3 'boucle sur 3 colonnes
            Set DEST = Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
            If R.Offset(0, I).Value <> "" Then DEST.Value = .Cells(4, I + 1).Value 'récupere la valeur orange si la ligne contient une valeur
        Next I 'prochaine colonne de la boucle
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "Données"
End Sub

Le fichier :

 

[piskely]

Re : Problème de remplissage automatique

Bonjour Robert,
Merci de votre rapidité mais je ne vois pas le résultat dans votre fichier joint.
Pourriez vous être plus explicite?

 

[Dugenou]

Re : Problème de remplissage automatique

Bonjour Piskely, Bonjour Robert,
le jeu de données est assez réduit : je comprend qu'il faut afficher les 3 colonnes garantie, prix, disponibilité pour l'item choisi
voir un essai avec recherchev dans le fichier joint
Cordialement

 

[Dugenou]

Re : Problème de remplissage automatique

En relisant la question je me dis que c'est peut-être les titres (en orange) que tu veux voir apparaître si'il y a une valeur correspondante.
Voir pj

 

[piskely]

Re : Problème de remplissage automatique

Bonjour Dugenou,
Merci de la réponse. En faite mon souhait c'est d'avoir d'abord
par exemple pour "Plats": Prix et Disponibilité puisque ce sont les seules cellules contenant des valeurs,
viendrons ensuite les valeurs correspondantes.

 

[Dugenou]

Re : Problème de remplissage automatique

Bonjour,
c'était donc bien la V2
voici la V3 "sans trous" : formules matricielles à valider par ctrl+maj+enter
Cordialement

 

[piskely]

Re : Problème de remplissage automatique

Merciii,
c'est exactement ce dont j'avais besoin.
Grand merci