Code selection en VBA

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #2

Re : Code selection en VBA

Jaimerai faire en fait:

Pour la selection donnée
faire le calcul

Tout con pour vou surement mais je n'y arrive pas 🙁

 

Vote positif 0 Vote négatif

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #3

Re : Code selection en VBA

G un bout de code qui marcherai mais je ne sait pas ou integrer mon calcul:

Private Sub CommandButton1_Click()

For Each cel In Selection
If cel.Value <> "" Then
If IsNumeric(cel.Value) And cel.Value < 10 Then
cel.NumberFormat = "@"
cel.Value = "0" & cel.Value
Else
cel.NumberFormat = "@"
End If
End If
Next cel

End Sub

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Mai 2007

• #4

Re : Code selection en VBA

re,

Oula, tu ne pourrais pas nous mettre un exemple de ton fichier en PJ avec ce que tu as au départ et le résultat souhaité.

@+

 

Vote positif 0 Vote négatif

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #5

Re : Code selection en VBA

Voila c'est un exemple tt con

 

Pièces jointes

• Help.xls

  14 KB · Affichages: 32
• Help.xls

  14 KB · Affichages: 33
• Help.xls

  14 KB · Affichages: 36

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Mai 2007

• #6

Re : Code selection en VBA

re,

Un petit bout de code (le resultat s'affiche dans une Msgbox) :

Code:

Private Sub CommandButton1_Click()
Set plage = Selection
MsgBox Application.WorksheetFunction.Sum(plage)
End Sub

@+

 

Vote positif 0 Vote négatif

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #7

Re : Code selection en VBA

Wahou tro cool ca marche super bien !
Et je vais t'embetter encore un peu 🙂 c possible de rentré le resultat dans une case selectioné ?
Peut etre avec Range("H21").Select

Private Sub CommandButton1_Click()
Set plage = Selection
MsgBox Application.WorksheetFunction.Sum(plage)
Range("H21").Select
End Sub

Et pour changer l'operation ( du genre faire la moyenne ) je met :
MsgBox Application.WorksheetFunction.AVERAGE(plage)

 

Dernière édition: 21 Mai 2007

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Mai 2007

• #8

Re : Code selection en VBA

re,

Il te suffit de mettre :

Code:

Range("H21").Value=Application.WorksheetFunction.Sum(plage)

@+

 

Vote positif 0 Vote négatif

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #9

Re : Code selection en VBA

Cool Merci Bcp de ton aide 😀 😀
On va se revoir bientot je pense vu comme je galere 😱

 

Vote positif 0 Vote négatif

N

nikwik666

XLDnaute Occasionnel

• 21 Mai 2007

• #10

Re : Code selection en VBA

Plus aucun rapport mais si tu e encore la est cque tu sais comment on fait pour incrémenté un calcul jusqua la derniere cellule de la colonne sans savoir exactement quelle est la derniere colonne car cela est variable selon les tableau..

 

Vote positif 0 Vote négatif