Multiplication colonne VBA
Résolu/Fermé
MCkitty
Messages postés
2
Date d'inscription
mercredi 30 décembre 2015
Statut
Membre
Dernière intervention
30 décembre 2015
-
30 déc. 2015 à 18:20
MCkitty Messages postés 2 Date d'inscription mercredi 30 décembre 2015 Statut Membre Dernière intervention 30 décembre 2015 - 30 déc. 2015 à 18:51
MCkitty Messages postés 2 Date d'inscription mercredi 30 décembre 2015 Statut Membre Dernière intervention 30 décembre 2015 - 30 déc. 2015 à 18:51
A voir également:
- Multiplication vba
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
NHenry
Messages postés
15112
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 avril 2024
330
30 déc. 2015 à 18:27
30 déc. 2015 à 18:27
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é.
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
Modifié par jc80 le 30/12/2015 à 18:31
Modifié par jc80 le 30/12/2015 à 18:31
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
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
30 déc. 2015 à 18:45
30 déc. 2015 à 18:45
Bonjour
Un exemple avec une boucle
http://www.cjoint.com/c/ELErRYITtvk
Cdlmnt
Un exemple avec une boucle
http://www.cjoint.com/c/ELErRYITtvk
Cdlmnt
MCkitty
Messages postés
2
Date d'inscription
mercredi 30 décembre 2015
Statut
Membre
Dernière intervention
30 décembre 2015
30 déc. 2015 à 18:51
30 déc. 2015 à 18:51
Merci à tous pour votre aide j'ai maintenant de belles pistes pour réfléchir
Bonne soirée
ET encore merci
Bonne soirée
ET encore merci
