Excel VB VBA multiplier des colonnes selon condition d'une autre colonne [Résolu]
xeeel
- Messages postés
- 25
- Date d'inscription
- mardi 3 avril 2007
- Dernière intervention
- 6 mars 2009
- Messages postés
- 25
- Date d'inscription
- mardi 3 avril 2007
- Dernière intervention
- 6 mars 2009
A voir également:
- Vb vba
- Visual Basic / VB.NET : Vbxl : programmation efficace d'excel en vba, vb6 et vb .net - CodeS SourceS - Guide
- Visual Basic / VB.NET : Piloter acrobat reader depuis excel et vba - CodeS SourceS - Guide
- Visual Basic / VB.NET : Mettre en forme du texte word depuis excel en vba - CodeS SourceS - Guide
- Visual Basic / VB.NET : Vérifier IBAN en Excel / en VBA - CodeS SourceS - Guide
- [VBA]TRIER DES COLONNES EXCEL PARTAGE ✓ - Forum - Visual Basic 6
10 réponses
Meilleure réponse
- Messages postés
- 14385
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 17 février 2019
Bonjour
Dim i as long
For i=5 to 1000
If Range("A5").Offset(i-1,0).Value="Acte1" Then
Range("D5").Offset(i-1,0).Value=Range("C5").Offset(i-1,0).Value*Range("B5").Offset(i-1,0).Value
Range("F5").Offset(i-1,0).Value=0
...
Next i
Cette boucle risque de prendre un peu de temps, mais elle fonctionne.
Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Dim i as long
For i=5 to 1000
If Range("A5").Offset(i-1,0).Value="Acte1" Then
Range("D5").Offset(i-1,0).Value=Range("C5").Offset(i-1,0).Value*Range("B5").Offset(i-1,0).Value
Range("F5").Offset(i-1,0).Value=0
...
Next i
Cette boucle risque de prendre un peu de temps, mais elle fonctionne.
Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14385
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 17 février 2019
Bonjour
Sur Excel, je voulais dire Remplacer A, B, C, ... par l'utilisation de l'objet Range ou Cells :
If Range("A2").Value="Acte1" Then
Range("D2").Value=Range("C2").Value*Range("B2").Value
Range("F2").Value=0
elseIf Range("A2").Value="Acte2" Then
Range("F2").Value=Range("C2").Value*Range("B2").Value
Range("D2").Value=0
end if
Bon, tu as aussi :
Range("...").Offset(...)
Cells(y,x) : x et y de base 1
Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Sur Excel, je voulais dire Remplacer A, B, C, ... par l'utilisation de l'objet Range ou Cells :
If Range("A2").Value="Acte1" Then
Range("D2").Value=Range("C2").Value*Range("B2").Value
Range("F2").Value=0
elseIf Range("A2").Value="Acte2" Then
Range("F2").Value=Range("C2").Value*Range("B2").Value
Range("D2").Value=0
end if
Bon, tu as aussi :
Range("...").Offset(...)
Cells(y,x) : x et y de base 1
Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
tu peux m'expliquer le .offset
car je l'ai testé mais bon...
Désolé de t'importuner de la sorte mais quand ca veut pas ca veut pas.
Je veux juste qui me fasse le calcul de ligne 5 a 1000 :
If Range("A5:1000").Value="Acte1" Then
Range("D5:1000").Value=Range("C5:1000").Value*Range("B5:1000").Value
Range("F5:1000").Value=0
Pour sélectionner ce n'est pas comme ca? plutot rows ou colomns("D")....?
Merci
car je l'ai testé mais bon...
Désolé de t'importuner de la sorte mais quand ca veut pas ca veut pas.
Je veux juste qui me fasse le calcul de ligne 5 a 1000 :
If Range("A5:1000").Value="Acte1" Then
Range("D5:1000").Value=Range("C5:1000").Value*Range("B5:1000").Value
Range("F5:1000").Value=0
Pour sélectionner ce n'est pas comme ca? plutot rows ou colomns("D")....?
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.