XL 2010 comment réaliser une macro pour faire appel à des données en automatiques

J

JHA

XLDnaute Barbatruc

• 14 Septembre 2016

• #2

Bonjour à tous,

Une solution par formule

JHA

 

Pièces jointes

• forum.xls

  29.5 KB · Affichages: 39

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 14 Septembre 2016

• #3

Bonjour,

Formule en E4 :
=SIERREUR(INDEX($A$4:$A$8;EQUIV(D4;$B$4:$B$8;0));"")

A+

 

Vote positif 0 Vote négatif

G

gonz19

XLDnaute Occasionnel

• 14 Septembre 2016

• #4

bonjour,

formule à copier dans la cellule E4 et à tirer vers le bas : =EQUIV(D4;$B$4:$B$8)
bonne journée

 

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 14 Septembre 2016

• #5

Bonjour,
Merci pour vos réponses mais par formule ça ne fonctionnera pas car j'ai plus de 500 données en colonne A et B. Je ne fais appelle qu'a quelques données de A et B en D et E et en aléatoire

 

Pièces jointes

• forum.xls

  46 KB · Affichages: 24

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Septembre 2016

• #6

Bonjour SANDRA2012, salut les autres,

Les solutions par formule conviennent très bien, 500 données c'est pinuts.

Mais puisque vous voulez du VBA voyez le fichier joint et cette macro :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
Set Target = Intersect(Target, Range("D4:D" & Rows.Count), Me.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées/effacements multiples
  i = Application.Match(Target, Range("B4:B" & Rows.Count), 0)
  If IsError(i) Then
    Target(1, 2) = ""
  Else
    Target(1, 2) = Cells(i + 3, 1)
  End If
Next
End Sub

Voyez aussi la MFC pour appliquer les bordures en colonnes D:E.

A+

 

Pièces jointes

• forum(1).xls

  70 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Septembre 2016

• #7

Re,

Si l'on veut que les modifications des colonnes A:B se répercutent en colonne E compléter ainsi :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
If Not Intersect(Target, Range("A4:B" & Rows.Count)) Is Nothing _
  Then Worksheet_Change [D:D]: Exit Sub 'relance la macro
i = [D:E].Find("*", , xlValues, , xlByRows, xlPrevious).Row
If i < 4 Then Exit Sub
Set Target = Intersect(Target, Range("D4:D" & i))
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Target In Target 'si entrées/effacements multiples
  i = Application.Match(Target, Range("B4:B" & Rows.Count), 0)
  If IsNumeric(i) Then
    If Target(1, 2) <> Cells(i + 3, 1) Then Target(1, 2) = Cells(i + 3, 1)
  ElseIf Target(1, 2) <> "" Then
    Target(1, 2) = ""
  End If
Next
Application.EnableEvents = True
End Sub

Fichier (2).

Edit : j'ai ajouté Application.ScreenUpdating et les Application.EnableEvents pour gagner du temps.

A+

 

Pièces jointes

• forum(2).xls

  80.5 KB · Affichages: 36

Dernière édition: 15 Septembre 2016

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 15 Septembre 2016

• #8

Bonjour à tous,
Merci pour vos réponses les formules et la macro fonctionnent parfaitement avec les lettres (a, b, c, ...) et les chiffres, mais lorsque je met mes vraies valeurs ça ne fonctionnent plus🙁.
en colonne A j'ai des chiffre du type : 25-65-0
en B des suites de chiffres commençant par 0 mais sans virgule : 080030
Quelqu'un peut il me dire pourquoi ça ne fonctionne

Merci d'avance
Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2016

• #9

Bonjour SANDRA2012, le fil,

SANDRA2012 à dit:

Quelqu'un peut il me dire pourquoi ça ne fonctionne

Merci d'avance

Cliquez pour agrandir...

On pourra vous le dire avec précision quand vous aurez joint un fichier avec les (bonnes) valeurs.

A+

 

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 15 Septembre 2016

• #10

voici mon fichier

 

Pièces jointes

• forum.xls

  27 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2016

• #11

Re,

Bah mes macros ne posent aucun problème sur votre dernier fichier (ci-joint).

A+

 

Pièces jointes

• forum.xls

  84 KB · Affichages: 34

Vote positif 0 Vote négatif

S

SANDRA2012

XLDnaute Junior

• 15 Septembre 2016

• #12

j'ai refait entièrement mon fichier, je devais avoir un bug car la macro fonctionne parfaitement🙂
merci beaucoup

 

Vote positif 0 Vote négatif