Microsoft 365 reporter des valeurs

M

MICHAEL

XLDnaute Occasionnel

• 10 Mars 2024

• #16

MICHAEL à dit:

je ne sais pas ou ajouter votre code dans le precedent

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 10 Mars 2024

• #17

dois je rajouter un then a la fin du code?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Mars 2024

• #18

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Cel As Range
   If Target.Address = "$D$1" Then
      Set Cel = [D6:D125].Find(Target.Value)
      If Cel Is Nothing Then Exit Sub
      Cel(1, 3).Value = [F5].Value
      Cel(1, 4).Value = [G5].Value
      Cel(1, 8).Value = [K5].Value
      [E5:K5].ClearContents
      End If
   End Sub

Il est évident qu'il faut effacer les cellules après les avoir copiées.

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 10 Mars 2024

• #19

du code initial

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 10 Mars 2024

• #20

Dranreb à dit:

Je vous l'ai dit: dans le module de l'objet Worksheet représentant la feuille Excel "Feuil1" dans la rubrique "Microsoft Excel Objets". Ce module s'appelle Feuil1, qui est ici le même nom que l'onglet.

Cliquez pour agrandir...

Monsieur, je suis désolé mais je n'arrive pas a faire fonctionner ce code.
je vais regarder cela et vous remercie pour votre patience.
je vous souhaite une agréable soirée
cordialement
Michael

 

Vote positif 0 Vote négatif