Salut!
Comme l'indique cette discussion, je suis débutant en vba!
J'aimerais donc me specialiser!
j'ai créer un bouton que j'ai donc affecter a une macro .
Quand j'appuie sur celui ci , cela me créer un cercle correspondant a la taille du chiffre d'affaire.
J'aimerai maintenant ajouter une ligne a mon tableur et reussir a faire un deuxieme rond !
(qui correspond a cette nouvelle ligne !)
Le but étant au final de créer une 30aine de rond correspond au chiffre d'affaire des villes! (dans mon exemple)
Voici mon lien!
Sub LeCercle()
'efface toutes les formes presentes de A1 a D20'
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing Then
s.Delete
End If
Next s
'creation d'un cercle'
Dim Rayon As Single
Rayon = Range("$F$2") / 10
ActiveSheet.Shapes.AddShape msoShapeOval, [c7].Left, [d2].Top, Rayon, Rayon
End Sub
MERKI !
Comme l'indique cette discussion, je suis débutant en vba!
J'aimerais donc me specialiser!
j'ai créer un bouton que j'ai donc affecter a une macro .
Quand j'appuie sur celui ci , cela me créer un cercle correspondant a la taille du chiffre d'affaire.
J'aimerai maintenant ajouter une ligne a mon tableur et reussir a faire un deuxieme rond !
(qui correspond a cette nouvelle ligne !)
Le but étant au final de créer une 30aine de rond correspond au chiffre d'affaire des villes! (dans mon exemple)
Voici mon lien!
Sub LeCercle()
'efface toutes les formes presentes de A1 a D20'
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing Then
s.Delete
End If
Next s
'creation d'un cercle'
Dim Rayon As Single
Rayon = Range("$F$2") / 10
ActiveSheet.Shapes.AddShape msoShapeOval, [c7].Left, [d2].Top, Rayon, Rayon
End Sub
MERKI !
Pièces jointes
Dernière édition: