Microsoft 365 copier/coller de plusieurs infos dans un onglet d'après une valeur donnée par liste

jag47 · 21 Avril 2021

Bonjour
j'essaye de mettre au point un fichier de suivis de matériel mais pas moyen d'y parvenir.
L'idée c'est a partir de l'onglet de départ "init" de faire le choix du matériel grâce aux listes en cascade (liste : zone, centrale, tag baes et modele), ça ça marche, ensuite a partir des 2 boutons d'état (OK et HS) je souhaiterais reporté les infos date, modele et l'etat dans l'onglet correspondant à la valeur de la cellule centrale et a la ligne égale à la valeur de la cellule tag baes. Le peu de VBA que j'ai déjà écris ben.. c'est pas top ;-)si quelqu'un a des neurones a cramer sur mon bidule ce serais sympa, merci.

Softmama · 21 Avril 2021

Bonjour,
Votre fichier en PJ.
Il faudra sûrement adapter pour obtenir le résultat souhaité, car je n'ai pas trop compris à quoi servaient les différentes dates... mais dans le principe, ça devrait fonctionner.

VB:

Public date_controle, zone_controle, centrale_controle, tag_control, modele_controle

Sub baes_ok()

 recherche_tab "OK"


End Sub


Sub baes_hs()

 recherche_tab "HS"


End Sub

Sub recherche_tab(Etat As String)

date_controle = Range("date_controle")
zone_controle = Range("zone_controle")
centrale_controle = Range("centrale_controle")
tag_controle = Range("tag_controle")
modele_controle = Range("modele_controle")

Dim sh As Worksheet
Dim c As Range

Set sh = Sheets(centrale_controle)
Set c =...

Softmama · 21 Avril 2021

Bonjour,
Votre fichier en PJ.
Il faudra sûrement adapter pour obtenir le résultat souhaité, car je n'ai pas trop compris à quoi servaient les différentes dates... mais dans le principe, ça devrait fonctionner.

VB:

Public date_controle, zone_controle, centrale_controle, tag_control, modele_controle

Sub baes_ok()

 recherche_tab "OK"


End Sub


Sub baes_hs()

 recherche_tab "HS"


End Sub

Sub recherche_tab(Etat As String)

date_controle = Range("date_controle")
zone_controle = Range("zone_controle")
centrale_controle = Range("centrale_controle")
tag_controle = Range("tag_controle")
modele_controle = Range("modele_controle")

Dim sh As Worksheet
Dim c As Range

Set sh = Sheets(centrale_controle)
Set c = sh.Range("A6:A1000").Find(what:=tag_controle, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  c.Offset(, 1) = modele_controle
  c.Offset(, 2) = date_controle
  c.Offset(, 3) = Etat
End If


End Sub

jag47 · 21 Avril 2021

ça marche nickel, ça correspond parfaitement a ce que je souhaitais, les différentes dates sont en fait la date du contrôle de l'état, la date d'installation du matériel et la date prévisionnelle de remplacement (date d'install + 8 ans). merciiii ;-)

Microsoft 365 copier/coller de plusieurs infos dans un onglet d'après une valeur donnée par liste

jag47

XLDnaute Nouveau

Pièces jointes

Softmama

Softmama

XLDnaute Accro

Pièces jointes

jag47

XLDnaute Nouveau

Discussions similaires