Définir par macro

[Goose]

Bjr à tous,
en partant de la macro suivante:

Sub Definir()
Dim derligne
Dim i
derligne = Range("O65536").End(xlUp).Row
For i = derligne To 1 Step -1
    If Range("O" & i).Value = 1 Then
    derligne = i
    Exit For
    End If
Next i
Range("C6:N" & derligne).Select
ActiveSheet.PageSetup.PrintArea = "$C$6:$N$" & derligne

j'aimerai définir, a présent, seulement les lignes dont la valeur en O contient 1 !!
comment modifier le code ?
merci de votre aide
@+

 

[Pierrot93]

Re : Définir par macro

Bonjour,

peut être avec ceci, enfin si j'ai bien compris, pas sûr :

If Range("O" & i).Value Like "*1*" Then

bon après midi
@+

 

[Goose]

Re : Définir par macro

Bjr Pierrot,
en faite, j'ai oublié de préciser que la zone d'impression ne dépend plus de C6 et de derligne, mais dépend de la valeur 1 !!
ainsi, comment transformer la ligne de code ci-dessous ?

Range("C6:N" & derligne).Select

@ te lire

 

[Pierrot93]

Re : Définir par macro

Re,
regarde peut être ceci :

Option Explicit
Sub test()
Dim c As Range, x As Byte, y As Integer
Set c = Range("C65536").End(xlUp)
x = Range("C6", c).Find("1", c, xlValues, xlPart, 1, 1, 0).Row
y = Range("C6", c).Find("1", , xlValues, xlPart, 1, 2, 0).Row
Range("C" & x & ":C" & y).Select
End Sub

 

[Goose]

Re : Définir par macro

Merci Pierrot,
j'ai adapté ta macro a mon fichier (ci-joint)
malheureusement, elle ne prends pas la plage avec les lignes de valeur 1 !!

j'ai penser adapter le code suivant, mais sans succès !!

Dim c As Range
For Each c In Range("O4:O39")
If c.Value = "1" Then
Range("D" & c & ":N" & c).Select
End If
Next
Range("D3").Select
End Sub

 

[Pierrot93]

Re : Définir par macro

Re,

si tu recherches les 1 de la colonne O, faut pas laisser D4 :

x = Range("D4", c).Find("1", c, xlValues, xlPart, 1, 1, 0).Row

il faut mettre O4 non et ce également pour l'instruction suivante....

 

[Pierrot93]

Re : Définir par macro

Re,

ceci semble fonctionner chez moi sur ton fichier :

Option Explicit
Sub test()
Dim c As Range, x As Byte, y As Integer
Set c = Range("o65536").End(xlUp)
x = Range("o4", c).Find("1", c, xlValues, xlPart, 1, 1, 0).Row
y = Range("o4", c).Find("1", , xlValues, xlPart, 1, 2, 0).Row
Range("D" & x & ":N" & y).Select
End Sub

 

[Goose]

Re : Définir par macro

Bjr,
effectivement ta solution marche nickel !!
merci pour tous
bye