Discussion :

[silverjet59]

bonjour a tous

voici mon souci : dans mon fichier joint ,je voudrais que les valeurs qui se situe dans la "feuil3"se reportent automatiquement aux même date dans la feuille "annuel" , et vice-et-versa

pour info :j ai mis un exemple le01 janvier et le 15 avril

merci de votre aide car je suis novice en VBA et j ai cherché sur le net mais...

[Marc-L]

Bonjour, Bonjour,

en référence aux règles de ce forum, on ne peut t'aider sans voir ton code …

Et l'Enregistreur de macros est un ami afin de se donner une base de code !

Cordialement.

[silverjet59]

oups ,desoler le voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
val_a_trouver = Sheets("Feuil3").ActiveCell.Offset(0, -1).Value
 
 
    Sheets("Feuil3").ActiveCell.Select
    Selection.Copy
 
   Sheets("annuel").Select
    Cells.Find(What:=val_a_trouver, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
 
    Range.ActiveCell.Offset(-1, 0).Select
    Application.CutCopyMode = True
 
End Sub

[Marc-L]

Merci d'utiliser la prochaine fois l'icône # dédiée au balisage du code !

Sinon je n'aime pas trop la conception et n'en voyant pas l'intérêt …

Ancien code aux oubliettes !

Code à copier dans le module de classe de la "(Feuil3)" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
    Q! = (Target.Column - 7) / 4
 
    If Fix(Q) = Q And Q >= 0 Then
        R& = 11 + (Month(Target(, 0).Value) - 1) * 14
 
        With Feuil1
            C = Application.Match(Target(, 0).Value2, _
                Application.Transpose(.UsedRange.Rows(R).Value2), 0)
 
            If Not IsError(C) Then .Cells(R + 2, C).Value = Target.Value
        End With
    End If
End Sub

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[silverjet59]

bonjour et Merci de votre aide

j ai essayer votre code mais sans resultats (il ne ce passe rien ?)

[Marc-L]

Ce code utilisant l'évènement de modification de cellule, une cellule de la feuille "Feuil3" doit donc être modifiée
afin de mettre à jour la feuille "annuel" …

Sinon soit le code n'a pas été placé au bon endroit, soit les macros sont désactivées,
soit le classeur n'a pas été enregistré avec macro au format .xlsm ou .xlsb …