M
Michel
Guest
bonjour je suis confronté a un pb depuis le passage d'un pg excel 95 vers 2000 :sick:
ON envoi les valeurs existantes dans la boite de dialogue
'
For n°_Ligne = premier To dernier Step 1
Cells(n°_Ligne, n°_colonne).Select
Let valeur_cellule = ActiveCell
A_x = 'A_' & n°_Ligne - 10 - 15 * (numéro - 1)
dlg.DrawingObjects(A_x).Strings = valeur_cellule Plantage a ce niveau
Next
n°_colonne = 5
'
ON envoi les valeurs existantes dans la boite de dialogue
'
For n°_Ligne = premier To dernier Step 1
Cells(n°_Ligne, n°_colonne).Select
Let valeur_cellule = ActiveCell
A_x = 'A_' & n°_Ligne - 10 - 15 * (numéro - 1)
dlg.DrawingObjects(A_x).Strings = valeur_cellule Plantage a ce niveau
Next
n°_colonne = 5
'