[VBA]Comment traduire If A1=A2=.... Then
Comment traduire If A1=A2=.... Then [VBA] - VB/VBA/VBS - Programmation
Marsh Posté le 27-11-2012 à 02:26:50
?
If (Range("G1" ).Value = Range("G2" ).Value) And
(Range("G1" ).Value = Range("G3" ).Value) And
etc ...
Sujets relatifs:
- VBA
- [VBA] Créer une liste depuis une cellule
- [Résolu] VBA XLS Aide msgbox
- Access VBA & Sharepoint Workflow
- VBA - Solveur
- Problème VBA/VBS
- [VBA] Fonction find avec plusieurs criteres
- [VBA Visio 2010] Récupérer des données de formes
- Code VBA (Revue analytique de 2 Balances)
- [VBA] help formules personnalisées
Marsh Posté le 26-11-2012 à 19:03:27
Bonsoir a tous, pour un TD a l'école je n'arrive pas à finir mon petit projet (résolution et vérification d'un carré magique d'ordre impair).
Je bloque à cette endroit : traduire en VBA If (valeur cellule=valeur cellule1=valeur cellule2...) Then
Voila ce que j'ai déjà :
Range("G1" ).FormulaLocal = "=SOMME(A1:E1)"
Range("G2" ).FormulaLocal = "=SOMME(A2:E2)"
Range("G3" ).FormulaLocal = "=SOMME(A3:E3)"
Range("G4" ).FormulaLocal = "=SOMME(A4:E4)"
Range("G5" ).FormulaLocal = "=SOMME(A5:E5)"
Range("A7" ).FormulaLocal = "=SOMME(A1:A5)"
Range("B7" ).FormulaLocal = "=SOMME(B1:B5)"
Range("C7" ).FormulaLocal = "=SOMME(C1:C5)"
Range("D7" ).FormulaLocal = "=SOMME(D1:D5)"
Range("E7" ).FormulaLocal = "=SOMME(E1:E5)"
If ( La où je souhaite mettre G1=G2=G3[...]=E7) Then
MsgBox "Le carré est bien magique"
Else
MsgBox "Le carré n'est pas magique"
EndIf
Merci