Macro avec fonction if

angele67 -  
angele67 Messages postés 5 Statut Membre -
Bonjour,
comment fait-on pour dire en language VBA :
si cellule dans la colonne Z = 1, alors ...

voila ce que j'ai écrit, mais bien sur, ca ne marche pas (!) :

Sub Macro()

Workbooks.Open Filename:= _
"G:\Quality\test.xls", UpdateLinks:=False, IgnoreReadOnlyRecommended:=True

Sheets("965.861 B").Select

If Columns("BE").Value = 1 Then
Activecells.Copy

ActiveWorkbook.Close

Sheets("janv").Select
Range("A12:AW100").Select
Range("A12:AW100").PasteSpecial xlPasteAll
Sheets("janv").Select

End If
End Sub

Please help me ;-)
A voir également:

2 réponses

David
 
Salut angele67

Ta question n'est pas très clair,

Si tu veux savoir si une cellule contient 1 alors faut faire

if Cells(1,1)=1 then
'ce que tu veux faire si ya 1
end if

Voila
David
0
angele67 Messages postés 5 Statut Membre
 
Salut, merci de me répondre :
en fait, le problème est plus complexe que je ne le pensais :
je voudrais dire :
"si dans la colonne BE il y a une cellule qui est égale à 1 (peu importe la ligne)
alors il faut copier toutes ces lignes".
pour le moment, je n'arrive qu'à dire de copier les lignes que je sélectionne, mais il faut que je copie les lignes où la colonne BE =1.

C'est plus clair? pas facile d'expliquer...

En tout cas merci pour ton aide...
0