Seysou

Je vais voir, sinon pour l'attribut j'ai décomposé le bloc pour avoir un bloc attribut (j'ai vérifié sur le dessin qu'il contient l'attribut) mais toujours dans l'expression :For i = 0 To UBound(atts) la valeur Ubound(atts)=-1 ! j'ai pas compris pourquoi!

Bonjour, Merci pour votre réponse, mais j'ai pas compris ça :(chercher les références qui gère le clavier pendant une instruction, gérer les commandes clavier etc...) Merci par avance

Merci pour votré réponse; j'ai pensé de faire le boucle do until (jusqu'à l'utilisateur clique sur entrée) comment écrire ça ?

Helloooooooo !! i neeeeed helpppppp !! Je vais faire un exemple pour mieux comprendre j'ai plusieurs blocs dans un dessin avec 2 attributs chaque bloc. je vais extraire les attributs de la façon suivante: l'utilisateur clique sur les blocs (bloc par bloc): par exemple il a cliqué sur 6 blocs; après un clic sur entrée je veux: Ouvrir un fichier excel ou bien il modifie sur un fichier déjà ouvert: Inserer les informations suivantes sur l'excel: ligne N°1 place dans la colonne A l'attribut 1 du premier bloc place dans la colonne B l'attribut 2 du premier bloc place dans la colonne C l'attribut 1 du 2eme bloc place dans la colonne D l'attribut 2 du 2eme bloc ligne N°2 place dans la colonne A l'attribut 1 du 2eme bloc place dans la colonne B l'attribut 2 du 2eme bloc place dans la colonne C l'attribut 1 du 3eme bloc place dans la colonne D l'attribut 2 du 3eme bloc Ligne N°n-1: place dans la colonne A l'attribut 1 du n-1eme bloc place dans la colonne B l'attribut 2 du n-1eme bloc place dans la colonne C l'attribut 1 du neme bloc place dans la colonne D l'attribut 2 du neme bloc J'ai essayé de le faire mais je n'arrive pas :( Des pistes pour m'aider svp