Comparaison cellules macro excel
Résolu
bubus33
Messages postés
10
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
16 janvier 2008
-
5 déc. 2007 à 10:47
bubus33 Messages postés 10 Date d'inscription mercredi 24 octobre 2007 Statut Membre Dernière intervention 16 janvier 2008 - 6 déc. 2007 à 11:15
bubus33 Messages postés 10 Date d'inscription mercredi 24 octobre 2007 Statut Membre Dernière intervention 16 janvier 2008 - 6 déc. 2007 à 11:15
A voir également:
- Comparaison cellules macro excel
- Arctan excel ✓ - Forum Visual Basic 6
- Désactiver macro excel ✓ - Forum VB.NET
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Macro excel copier coller cellule dans une autre feuille - Forum Visual Basic
4 réponses
bubus33
Messages postés
10
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
16 janvier 2008
6 déc. 2007 à 11:15
6 déc. 2007 à 11:15
Bonjour,
Pour ceux que ca intéresse voici la macro tel que je la voulais:
Sub test()
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
'Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim m As Integer
l = Sheets("Cadences").Range("A65536").End(xlUp).Row
m = Sheets("Liste pièces").Range("X2000").End(xlUp).Row
For j = 7 To l
For i = 7 To m
'calcul cadence pour les differents produits
If Sheets("Liste pièces").Range("Y" & i).Value Sheets("Cadences").Range("A" & j).Value Then Sheets("Liste pièces").Range("X" & i).FormulaR1C1 "=RC[-1]*RC[-2]*Cadences!R" & j & "C12"
Next
Next
End Sub
Pour ceux que ca intéresse voici la macro tel que je la voulais:
Sub test()
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
'Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim m As Integer
l = Sheets("Cadences").Range("A65536").End(xlUp).Row
m = Sheets("Liste pièces").Range("X2000").End(xlUp).Row
For j = 7 To l
For i = 7 To m
'calcul cadence pour les differents produits
If Sheets("Liste pièces").Range("Y" & i).Value Sheets("Cadences").Range("A" & j).Value Then Sheets("Liste pièces").Range("X" & i).FormulaR1C1 "=RC[-1]*RC[-2]*Cadences!R" & j & "C12"
Next
Next
End Sub
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
5 déc. 2007 à 11:35
5 déc. 2007 à 11:35
que vaut ce fameux 'j' ?
bubus33
Messages postés
10
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
16 janvier 2008
5 déc. 2007 à 11:38
5 déc. 2007 à 11:38
ah oui j'ai oublié!!
merci pour la remarque: il vaut j= 7 to range("A7").end(xldown).row
et j'ai remarqué que le balayage pour les cellules i feuil1 et j feuil 2 ne se fait pas comme je le voudrais:
dans le premier if je voudrais demander si la cellule Aj de Feuil2 est trouvée dans la feuil1 et si oui, inscrire 222 puis si Aj+1 est trouvée dans la feuil1 et si oui ecrire 111. Or en fait il m'écrit 111 pour tout...j'aimerai qu'il balaie pour un j tout les i puis pour j+1 tou les i a nouveau...
c'est possible?
Merci encore pour ta réponse,
Bubus
merci pour la remarque: il vaut j= 7 to range("A7").end(xldown).row
et j'ai remarqué que le balayage pour les cellules i feuil1 et j feuil 2 ne se fait pas comme je le voudrais:
dans le premier if je voudrais demander si la cellule Aj de Feuil2 est trouvée dans la feuil1 et si oui, inscrire 222 puis si Aj+1 est trouvée dans la feuil1 et si oui ecrire 111. Or en fait il m'écrit 111 pour tout...j'aimerai qu'il balaie pour un j tout les i puis pour j+1 tou les i a nouveau...
c'est possible?
Merci encore pour ta réponse,
Bubus
bubus33
Messages postés
10
Date d'inscription
mercredi 24 octobre 2007
Statut
Membre
Dernière intervention
16 janvier 2008
5 déc. 2007 à 11:41
5 déc. 2007 à 11:41
je précise la macro:
if sheets("Feuil1").range("Y" & i).value= sheets("feuil2").range("A"&j).value then sheets("Feuil1").range("X" & i);formluaR1C1=222
if sheets("Feuil1").range("Y" & i).value= sheets("feuil2").range("A"&j).value then sheets("Feuil1").range("X" & i);formluaR1C1=111
if sheets("Feuil1").range("Y" & i).value= sheets("feuil2").range("A"&j).value then sheets("Feuil1").range("X" & i);formluaR1C1=222
if sheets("Feuil1").range("Y" & i).value= sheets("feuil2").range("A"&j).value then sheets("Feuil1").range("X" & i);formluaR1C1=111