Recherchev rappatriée dans une plage spécifique avec commentaires

Bonjour,

Je rencontre des difficultés de programmation VBA depuis plusieurs jours et j'avoue ne plus avoir de solutions.

Voici ce que je souhaite faire:

A partir de l'onglet "Configurateur" :

- sélection d'une valeur dans le menu déroulant de la case "C6",

- Activation du rapatriement automatique de données depuis l'onglet "Extraction Navision" vers l'onglet "Configurateur" avec:

1 - "Extraction Navision" colonne A --> "Configurateur" colonne B : [s=co-548dd4][/s]Je voudrai pouvoir dire d'insérer les données en dessous d'une cellule (par exemple B15)

J'ai essayé :

Range("B15").End(xlDown)      

Sans succès... Elles sont actuellement rapatriées dans la colonne B dans la 1ère cellule vide en partant du bas "End (xlUp)".

2 - "Extraction Navision" colonne E --> "Configurateur" colonne D : avec les commentaires (triangle rouge en haut à droite des cellule) qui contiennent des images

Extrait de l'onglet "Configurateur"

Extrait de l'onglet "Extraction Navision"

Extrait du code

Option Explicit

Dim fd As Worksheet, Cel As Range
Dim Col&
Dim P As Long

Private Sub Worksheet_Change(ByVal Target As Range)

'Caisson_option
        If Target.Address = "$C$6" Then
    Application.EnableEvents = False
    Set fd = Sheets("Extraction Navision")
    Range("B13:B55").ClearContents
    On Error GoTo fin
    Col = fd.Range("I3:ww3").Find(What:=Target).Column
    For Each Cel In fd.Range(fd.Cells(4, Col), fd.Cells(3000, Col))
        If Cel.Value <> "" And fd.Cells(Cel.Row, 4) = "Caisson_option" Then
            Range("B65000").End(xlUp).Offset(1, 0).Value = fd.Cells(Cel.Row, 1)
        End If
    Next Cel
    End If

fin:
  Application.EnableEvents = True
End Sub

Sub evenement()
  Application.EnableEvents = True
End Sub

Ci-joint le ficher également:

A savoir que j'ai réellement besoin de faire une rechercheV afin de pouvoir réaliser des paramétrages dans l'onglet "Extraction Navision".

Merci par avance,

David

Bonjour,

N'ayant pas reçu de réponse à ce jour, j'espère ne pas avoir mis trop d'informations dans ma demande. Je pense que pour des experts de VBA, le code devrait suffire.

A partir du code ci-dessous, je voudrais en + :

1 - Pour le "Rang ("B65000").End(xlUp)", autre chose qui renvoie les données dans une plage choisie (B12:B30 par exemple)

2 - rapatrier une autre colonne avec les commentaires (triangle rouge en haut à droite des cellules) avec des photos à l'intérieur.

Je voudrais que ces 2 opérations soit déclenchées dès lors que la cellule C6 est modifiée.

Option Explicit

Dim fd As Worksheet, Cel As Range
Dim Col&
Dim P As Long

Private Sub Worksheet_Change(ByVal Target As Range)

'Caisson_option
        If Target.Address = "$C$6" Then
    Application.EnableEvents = False
    Set fd = Sheets("Extraction Navision")
    Range("B13:B55").ClearContents
    On Error GoTo fin
    Col = fd.Range("I3:ww3").Find(What:=Target).Column
    For Each Cel In fd.Range(fd.Cells(4, Col), fd.Cells(3000, Col))
        If Cel.Value <> "" And fd.Cells(Cel.Row, 4) = "Caisson_option" Then
            Range("B65000").End(xlUp).Offset(1, 0).Value = fd.Cells(Cel.Row, 1)
        End If
    Next Cel
    End If

fin:
  Application.EnableEvents = True
End Sub

Sub evenement()
  Application.EnableEvents = True
End Sub

J'espère que vous pourrez m'aider...

David

J'ai trouvé la solution finalement. Je clôture donc ce sujet.