Excel probleme fonction si
jeromeschiano
-
LexMarc -
LexMarc -
Bonjour,
j'ai un problème que je ne parviens pas a résoudre sur microsoft excel :
Voila la situation :
La colonne A de mon tableur est laissée vide.
Sur les colonnes B a CH se trouvent sur certaines lignes seulement, une seule fois, un mot : yes.
Par exemple, pour la ligne 14, "yes" (qui n'apparait n'apparait qu'une seule fois par ligne et pas sur toutes les lignes, je le répète) se trouve sur la colonne BT; pour la ligne 123; "yes" se trouve en colonne D.
Je voudrais que lorsqu'une ligne contient un "yes" (peut importe ou il est sur la ligne), le chiffre 1 apparaisse sur cette même ligne en colonne A.
Si la ligne considérée ne contient pas de "yes", je souhaiterais que le chiffre 2 apparaisse sur cette même ligne, toujours en colonne A.
Dans mon cas, la situation est valable sur plus de deux milles lignes, il me faut donc une fonction qui puisse se propager vers le bas.
Merci beaucoup pour votre aide, je suis complètement bloque...
Jérôme
j'ai un problème que je ne parviens pas a résoudre sur microsoft excel :
Voila la situation :
La colonne A de mon tableur est laissée vide.
Sur les colonnes B a CH se trouvent sur certaines lignes seulement, une seule fois, un mot : yes.
Par exemple, pour la ligne 14, "yes" (qui n'apparait n'apparait qu'une seule fois par ligne et pas sur toutes les lignes, je le répète) se trouve sur la colonne BT; pour la ligne 123; "yes" se trouve en colonne D.
Je voudrais que lorsqu'une ligne contient un "yes" (peut importe ou il est sur la ligne), le chiffre 1 apparaisse sur cette même ligne en colonne A.
Si la ligne considérée ne contient pas de "yes", je souhaiterais que le chiffre 2 apparaisse sur cette même ligne, toujours en colonne A.
Dans mon cas, la situation est valable sur plus de deux milles lignes, il me faut donc une fonction qui puisse se propager vers le bas.
Merci beaucoup pour votre aide, je suis complètement bloque...
Jérôme
Configuration: Windows XP Firefox 2.0.0.15
1 réponse
-
Bonjour
Code à mettre dans un bouton
Sub MacroRecopie()
Application.ScreenUpdating = False
Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(RC[1]:RC[85],""yes"")>0,1,2)"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A3000"), Type:=xlFillDefault
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Bon courage
@+ LM
