comment afficher différents prix à la suite

Question

Bonjour,
Dans ma feuil1, J'ai en A1 un Nom, B1 Date ,C1 Prix donc A2 "Rose",B2 "28/03/09",C2 "26,00€"
Je voudrai dans ma feuil 2 avoir A2 "Rose",B1 "28/03/09",B2 26,00€
Lorsque je change en feuil1 la date en B2 "29/03/09" et Prix en C2 "24,00€"
Cela s'affiche en C1 "29/03/09" et C2 "24,00€", et ainsi de suite.
Donc , à chaque fois que je rentre sur ma feuil1 en B2 une nouvelle date avec en C2 un nouveau prix ; j'ai quant même un suivi sur ma feuil2.
Merci

wilfried_42 · Answer

Bonjour

question : quelle est ta version d'excel parce qu'une version inférieure à 2007 te limite à 255 colonnes, autrement dit 254 mises à jour de prix... alors qu'il est possible de faire autrement....

@ te lire

wilfried_42 · Answer

re:

voici un fichier exemples : https://www.cjoint.com/?dFhvTVjd7a
dans ce fichier il y a une macro (Extension : xlsm)
pour voir la macro : 
sur le nom de l'onglet Feuil1 click droit et choisir Visualiser le code

Tu peux ajouter des lignes j'ai fait selon ce que j'ai compris

wilfried_42 · Answer

re:

j'arrive à le télécharger, sur quel excel cherches tu à le lire ? il a été écrit sur Excel 2007 avec Macros extension xlsm.

wilfried_42 · Answer

re:

je ne comprends pas, je viens de refaire la manip, ça fonctionne chez moi

voici la Macro à mettre dans le code de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, d As Range
    If Not Intersect(Target, Range("B:C")) Is Nothing Then
        Set c = Sheets("Feuil2").Range("A:A").Find(Range("A" & Target.Row).Value)
        If c Is Nothing Then
            Set c = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(2, 0)
            c.Value = Range("A" & Target.Row)
        End If
        Set d = Sheets("Feuil2").Range("A" & c.Row & ":XFD" & c.Row).Find(Range("B" & Target.Row).Value)
        If d Is Nothing Then Set d = Sheets("Feuil2").Range("XFD" & c.Row).End(xlToLeft).Offset(0, 1)
        d.Offset(0, 0) = Range("B" & Target.Row)
        d.Offset(0, 0).NumberFormat = "dd/mm/yyyy"
        d.Offset(1, 0) = Range("C" & Target.Row)
    End If
End Sub
en gras le nom de la feuille de suivi de tarifs à adapter

wilfried_42 · Answer

re:

voici une nouvelle mouture
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, d As Range
    If Not Intersect(Target, Range("B:C")) Is Nothing Then
        Set c = Sheets("Feuil2").Range("A:A").Find(Range("A" & Target.Row).Value)
        If c Is Nothing Then
            Set c = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(2, 0)
            c.Value = Range("A" & Target.Row)
        End If
        Set d = Sheets("Feuil2").Range("A" & c.Row & ":XFD" & c.Row).Find(Range("B" & Target.Row).Value)
        If d Is Nothing Then
            Sheets("Feuil2").Range("B" & c.Row & ":B" & c.Row).Insert shift:=xlToRight
            Sheets("Feuil2").Range("B" & c.Row + 1 & ":B" & c.Row + 1).Insert shift:=xlToRight
            Set d = Sheets("Feuil2").Range("B" & c.Row)
        End If
        d.Offset(0, 0) = Range("B" & Target.Row)
        d.Offset(0, 0).NumberFormat = "dd/mm/yy"
        d.Offset(1, 0) = Range("C" & Target.Row)
        d.Offset(1, 0).NumberFormat = "# ### ##0.00 €"
    End If
End Sub

wilfried_42 · Answer

re:

c'est normal, tu me dis dans ton 2 eme post que tu travailles sur 2007, alors je te fais tout sur 2007. c'est pour cela que tu chargeais un fichier bizarre au début, je t'envoyais un xlsm (version 2007)

pour que cela fonctionne sur une version inférieure, il faut modifier :XFD par :IV

wilfried_42 · Answer

re:

voici une nouvelle version qui fonctionnera sur version 2000,2002,2003,2007
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, d As Range
    If Not Intersect(Target, Range("B:C")) Is Nothing Then
        Set c = Sheets("Feuil2").Range("A:A").Find(Range("A" & Target.Row).Value)
        If c Is Nothing Then
            Set c = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(2, 0)
            c.Value = Range("A" & Target.Row)
        End If
        Set d = Sheets("Feuil2").Range(c.row,1 & ":" & c.row).Find(Range("B" & Target.Row).Value)
        If d Is Nothing Then
            Sheets("Feuil2").Range("B" & c.Row & ":B" & c.Row).Insert shift:=xlToRight
            Sheets("Feuil2").Range("B" & c.Row + 1 & ":B" & c.Row + 1).Insert shift:=xlToRight
            Set d = Sheets("Feuil2").Range("B" & c.Row)
        End If
        d.Offset(0, 0) = Range("B" & Target.Row)
        d.Offset(0, 0).NumberFormat = "dd/mm/yy"
        d.Offset(1, 0) = Range("C" & Target.Row)
        d.Offset(1, 0).NumberFormat = "# ### ##0.00 €"
    End If
End Sub

rachid_04 · Answer

Bonjour


si je comprend bien ce probleme ; vous pouvez utiliser la fonction RechercheV ,  il suffit donc de l'appliquer sur la feuil 2 ,


comme ça quand tu saisi le nom , les autres paramètres seront automatiquement modifier selon la feuil 1
-------------

Comment afficher différents prix à la suite

8 réponses

Votre réponse

Discussions similaires

Newsletters