Multiplication colonne VBA
Résolu
MCkitty
Messages postés
2
Statut
Membre
-
MCkitty Messages postés 2 Statut Membre -
MCkitty Messages postés 2 Statut Membre -
Bonjour,
J'ai une série de nombre dans une colonne A et une autre série dans une colonne B
J'aimerais par code Vba, déclarer ces deux colonnes et inscrire dans une colonne D le résultat de B fois C.
D1=B1*C1
D2=B2*C2
...
De préférence grâce à une boucle...
Ensuite je voudrais prendre tous ces résultats et en faire une moyenne
Merci de votre aide
J'ai une série de nombre dans une colonne A et une autre série dans une colonne B
J'aimerais par code Vba, déclarer ces deux colonnes et inscrire dans une colonne D le résultat de B fois C.
D1=B1*C1
D2=B2*C2
...
De préférence grâce à une boucle...
Ensuite je voudrais prendre tous ces résultats et en faire une moyenne
Merci de votre aide
A voir également:
- Multiplication vba
- Application multiplication - Télécharger - Études & Formations
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
4 réponses
Selon le théorème de CCM, toute demande d'aide au devoir finit implacablement plongée dans les profondeurs des messages hors sujets.
Sur ce, je vous invite à prendre connaissance de cette information concernant vos demandes de devoirs.
Enregistres une macro et regardes le code généré.
Sur ce, je vous invite à prendre connaissance de cette information concernant vos demandes de devoirs.
Enregistres une macro et regardes le code généré.
Bonjour
code vba a mettre dans ta feuille
alt+F11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns("B:C")) Is Nothing Then
If Application.Count(Cells(Target.Row, 2).Resize(, 3)) = 2 Then
Cells(Target.Row, 4) = Cells(Target.Row, 2) * Cells(Target.Row, 3)
Else
Cells(Target.Row, 4) = ""
End If
End If
End Sub
Cordialement
code vba a mettre dans ta feuille
alt+F11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns("B:C")) Is Nothing Then
If Application.Count(Cells(Target.Row, 2).Resize(, 3)) = 2 Then
Cells(Target.Row, 4) = Cells(Target.Row, 2) * Cells(Target.Row, 3)
Else
Cells(Target.Row, 4) = ""
End If
End If
End Sub
Cordialement
