Code selection en VBA

[nikwik666]

Re Bonjour , je squatte le forum 😀
Je vou expose mon nouveau probleme: dans ma colonne j aimerai calculer a l'aide d'un boutonControl certaine operation. jusqua la pas tro de probleme mais la ou ca ce complique c'est que g envi de faire le calcul sur une certaine selection qui n'est pas toujours la meme ( par exemple un coup je voudrai faire l'addition de A1 a A20 et un coup de A8 a A12 )
J'espere que cela est fesable ..
Merci encore de votre aide

 

[nikwik666]

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 🙁

 

[nikwik666]

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

 

[porcinet82]

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é.

@+

 

[nikwik666]

Re : Code selection en VBA

Voila c'est un exemple tt con

 

[porcinet82]

Re : Code selection en VBA

re,

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

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

@+

 

[nikwik666]

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)

 

[porcinet82]

Re : Code selection en VBA

re,

Il te suffit de mettre :

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

@+

 

[nikwik666]

Re : Code selection en VBA

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

 

[nikwik666]

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..