Microsoft 365 Créer une plage de données en ligne et non en colonne + lier ces plages à un certain choix de cellule

marie_stid · 7 Avril 2021

Bonjour,

Je cherche à créer des plages. Entre chaque ligne vide, j'aimerais que les lignes pleines soient des plages différentes. ensuite, j'aimerais que chaque plage d'une colonne soit reliée avec une autre colonne de la même plage .

Je sais c'est une explication un peu tirée par les cheveux.
je vous mets un exemple en image.

Merci d'avance

marie_stid · 7 Avril 2021

Effectivement, J'ai pas du tout enlever. Dans le fichier test j'ai gardé que le nécessaire pour répondre à ma problématique.

Mais je comprends le code que vous m'avez envoyé. je pense que je cherchais trop compliqué.
En le modifiant un peu c'est parfait merci beaucoup !

vgendron · 7 Avril 2021

Bonjour
Pour commencer, des images ne servent à rien.. ni à la compréhension du problème et donc encore moins à sa résolution

le mieux; c'est de mettre ton fichier exempt de toute donnée confidentielle

marie_stid · 7 Avril 2021

Bonjour,

Oui excusez-moi, je n'ai pas eu beaucoup de temps pour créer un fichier test.

Il est maintenant en pièce jointe

vgendron · 7 Avril 2021

dans le fichier joint,
la feuille "modif_toyota" n'existe plus==> je présume que Feuil1 a la meme structure?

certains listbox et autres controls ne sont pas - plus dans le formulaire tel que sur tes images
pourtant le code associé existe encore..
à l'initialize, tu charges des infos qui sont en colonne S.. mais elle est vide...
après. je sais pas trop ce que tu veux faire..
mais pour chaque numéro de contrat (colonne E) , tu peux detecter la fin de zone (colonne Q)

ex:

VB:

FinFeuille=range("Q" &rows.count).end(xlup).row
for i=2 to FinFeuille
   if range("E" &i)<>"" then
          NumeroDeContrat=range("E" &i)
         FinContrat= range("Q" &i).end(xldown).row
          set ZoneContrat=range("Q" &i &":Q" &FinContrat)
         'ici, tu as ZoneContrat défini pour le NuméroDeContrat
  end if
next i

marie_stid · 7 Avril 2021

Effectivement, J'ai pas du tout enlever. Dans le fichier test j'ai gardé que le nécessaire pour répondre à ma problématique.

Mais je comprends le code que vous m'avez envoyé. je pense que je cherchais trop compliqué.
En le modifiant un peu c'est parfait merci beaucoup !

Microsoft 365 Créer une plage de données en ligne et non en colonne + lier ces plages à un certain choix de cellule

marie_stid

XLDnaute Nouveau

marie_stid

vgendron

XLDnaute Barbatruc

marie_stid

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

marie_stid

XLDnaute Nouveau

Discussions similaires