Charger données dans une autre feuille sous 2 conditions

Bonjour,

J'ai besoin de votre aide.

Est-il possible d'envoyer des info saisie dans une feuille dans une autre feuille mais sous 2 conditions.

Dans ma feuille "saisie", j'indique un ville, un moyen de transport, une date de départ et une date de retour.

Je voudrais que c'est information aille se placer dans la feuille "trajet" sur la ligne correspondant à la ville et dans les colonnes correspondant au moyen de locomotion pour la date de départ et la date de retour.

Je veux joint un fichier qui contient plus de précisions.

Déjà un grand merci pour l'aide que vous pouvez m'apporter.

Amicalement.

bonsoir,

une proposition

Private Sub CommandButton1_Click()
    Set wst = Worksheets("trajet")
    dlt = wst.Cells(Rows.Count, 1).End(xlUp).Row
    Set re = wst.Range("C4:C" & dlt).Find(Range("J6"), lookat:=xlWhole, LookIn:=xlValues)
    If re Is Nothing Then
        MsgBox "ville non trouvée"
    Else
        i = re.Row
        Set re = wst.Range("E2:P2").Find(Range("K10"))
        If re Is Nothing Then
            MsgBox "moyen de transport non trouvé"
        Else
            wst.Cells(i, re.Column) = Range("I12")
            wst.Cells(i, re.Column + 1) = Range("M12")
        End If
    End If
    Range("J6:M6") = ""
    Range("K10:M10") = ""
    Range("I12:J12") = ""
    Range("M12:N12") = ""
End Sub

Bonjour,

Merci pour votre proposition et votre rapidité. Elle fonctionne très bien.

Mais est-il possible de mettre une sécurité.

En fait si des dates ont déjà été saisie, une msgbox avec yes/no alerterait qu'il y a déjà des dates pour ces 2 conditions.

Si on veut écraser les dates précédentes, on cliquera YES sinon NO gardera les anciennes dates.

Pensez vous que ce soit possible ?

Amicalement.

Bonjour,

à tester

Private Sub CommandButton1_Click()

    Set wst = Worksheets("trajet")
    dlt = wst.Cells(Rows.Count, 1).End(xlUp).Row
    Set re = wst.Range("C4:C" & dlt).Find(Range("J6"), lookat:=xlWhole, LookIn:=xlValues)
    If re Is Nothing Then
        MsgBox "ville non trouvée"
    Else
        i = re.Row
        Set re = wst.Range("E2:P2").Find(Range("K10"))
        If re Is Nothing Then
            MsgBox "moyen de transport non trouvé"
        Else
            rempli = wst.Cells(i, re.Column) <> ""
            If rempli Then
                MsgBox "il y a dejà une date pour ces critères, ok pour remplacer", vbYesNo
                If vbNo Then rempli = False
            End If
            If Not rempli Then
                wst.Cells(i, re.Column) = Range("I12")
                wst.Cells(i, re.Column + 1) = Range("M12")
            End If
        End If
    End If
    Range("J6:M6") = ""
    Range("K10:M10") = ""
    Range("I12:J12") = ""
    Range("M12:N12") = ""
End Sub

Bonjour h2so4,

C'est parfait. Merci pour vos compétences, votre réactivité et votre efficacité.

Très amicalement.