Multiplication colonne VBA
Résolu
MCkitty
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
MCkitty Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
MCkitty Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Multiplication vba
- Application multiplication - Télécharger - Études & Formations
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
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
