Microsoft 365 Mise à jour de certaines données dans une ListView d'un UserForm

C

Compte Supprimé 979

Guest

• 7 Juin 2023

• #2

Bonjour,

J'ai remarqué que vous avez posté votre message sur un autre forum Excel.

La pratique du cross posting est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.

Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne journée

 

Vote positif 0 Vote négatif

D

Diane272727

XLDnaute Junior

• 7 Juin 2023

• #3

Bonjour,
C'est bon, le sujet est clôturé sur l'autre forum
Du coup, en espérant que des personnes puissent m'aider sur mon problème sur ce forum

 

Vote positif 0 Vote négatif

D

Diane272727

XLDnaute Junior

• 7 Juin 2023

• #4

Personne n'aurai une petite piste ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Juin 2023

• #5

Bonsoir le Fil
Ce que j'ai rajouté pour répondre à:

- dans la ListView, il n'y ai que les lignes où la colonne G soit égale à 2.

Cliquez pour agrandir...

VB:

 If Not .Cells(i, 1).EntireRow.Hidden And .Cells(i, 6).Value = 2 Then

soit le test sur la colonne 6

And .Cells(i, 6).Value = 2

Cliquez pour agrandir...

Jean marie

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Juin 2023

• #6

Bonjour le fil

- dans les TextBox1 2 et 3, s'affichent les données des colonnes H, I, J

Cliquez pour agrandir...

Pour paraphraser Johnny
Noir, noir, il n'y a plus d'espoir
Oui, vide, c'est vide
Et c'est fini, oh, oh, oh, oh

Car si je ne m'abuse les colonnes sont vides, non ?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Juin 2023

• #7

Re
Bonsoir JM
pour la demande 2
ce que j'ai mis!

VB:

 Me.TextBox1.Value = Me.ListView1.ListItems(Item.Index).SubItems(6) 'H
 Me.TextBox2.Value = Me.ListView1.ListItems(Item.Index).SubItems(7) 'I
 Me.TextBox3.Value = Me.ListView1.ListItems(Item.Index).SubItems(8) 'J

Jean marie

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 8 Juin 2023

• #8

Bonjour a tous

Diane272727:

Fichier avec quelques modif pour test ligne vu que colonne G il y a une formule qui met 2 si colonne H vide et mise a jour

 

Pièces jointes

• Diane272727_Mise à jour.xlsm

  49.9 KB · Affichages: 16

Vote positif 0 Vote négatif

Solution

D

Diane272727

XLDnaute Junior

• 8 Juin 2023

• #9

Bonjour à tous les contributeurs du sujet.
Ton fichier m'a beaucoup aidé Oneida, c'est parfait, merci beaucoup
Belle journée à tous.

 

Vote positif 0 Vote négatif