Bonjour ,

Je veux faire l'opération présentée dans un code comme ci-dessous sous excel :

if(Sheet1A1 = 1)
if(Sheet2B2 = 1)
i++;
else if(Sheet2B2 = 0)
j++;

else if(Sheet1A1 = 0)
if(Sheet2B2 = 1)
k++;
else if(Sheet2B2 = 0)
l++;

Je pense qu'il va me falloir utiliser des macros mais je n'ai aucune idée comment faire et je suis assez pressé pour obtenir des résultats :(

Quelqu'un aurait-il une idée comment réaliser simplement ce que je souhaite svp ?

Merci

Bonsoir à tous

Bonsoir PClément

Essaie ce code :

Sub essai()
If Worksheets("Feuil1").Range("A1") = 1 Then
If Worksheets("Feuil2").Range("B2") = 1 Then
i = i + 1
Else
j = j + 1
End If
Else
If Worksheets("Feuil2").Range("B2") = 1 Then
k = k + 1
Else
l = l + 1
End If
End If
End Sub

Si j'ai bien compris

Eric

Merci pour ce code !

Je pense qu'il faudrait peut être que je comprenne un peu mieux comment programmer en visual basic pour ne pas trop abuser de votre aide.
ça prend du temps pour comprendre ? connaitriez vous un site proposant un tutorial rapide svp ?

Le code doit surement marcher mais je veux faire des choses un peu plus compliquées.
J'aimerai notamment faire ce calcul pour une colonne donnée, par exemple pour A1 jusqu'a A100 et incrémenter les i,j,k,l en fonction du test logique.
Ensuite, a la fin de la boucle de test j'aimerai dire Sheet3A1 = i, Sheet3A2 = j etc.

Est ce que c'est faisable ?

Incroyable !

J'arrive à faire quelque chose !

MERCI !

En effet F1 et F8 m'aident bien.

Juste deux questions,
1: Je n'ai pas bien compris la différence entre :
Worksheets("Feuil1").Range("A1") et Worksheets("Feuil1").Range("A1").Value.
D'après le bout de code que Eric45 m'a écrit le .Value n'est pas utile pour faire le test mais dans l'aide de Visual ils précisent qu'il faut utiliser ce .Value pour changer la valeur d'une case..
2: comment commenter du code ?

Bonjour à tous

Bonjour PClément

Effectivement le .value ne semble pas nécessaire, mais j'aurais du le mettre, il spécifie ce que l'on veut récupérer comme information : value, text,..... sans le préciser VBA se débrouille, mais le code n'est pas précis et il y a un risque d'erreur.

Pour commenter un code il suffit de mettre un ' (apostrophe) et écrire le texte à la suite. VBA comprend que c'est un commentaire, exemple :

Range("a1").select 'selectionne la cellule A1

Tu recopies cette instruction dans un module, et la phrase après le " ' " change de couleur et n'est pas lu par VBA

Eric

PClément a écrit :

Juste deux questions,
1: Je n'ai pas bien compris la différence entre :
Worksheets("Feuil1").Range("A1") et Worksheets("Feuil1").Range("A1").Value.
D'après le bout de code que Eric45 m'a écrit le .Value n'est pas utile pour faire le test mais dans l'aide de Visual ils précisent qu'il faut utiliser ce .Value pour changer la valeur d'une case..
2: comment commenter du code ?

1) Si tu ne mets pas .Value, VBA va utiliser la propriété par défaut de l'objet Range (plage de cellules) qui se trouve justement être... .Value. Cela ne marcherait pas avec une autre propiété.

2) Lorsque tu mets ' (apostrophe) dans ton code, tout ce qui suit dans la ligne est considéré comme un commentaire et n'est pas exécuté.

excuses Eric45. La simultanéité...

Ok merci à tous,