Mise a jour de plusieur ligne (VBA)

[Bens7]

Bonjour a tous !
Voila je posede un petit macro tres pratique qui me met a jour toutes les lignes de la T si la date est enterieur a aujourdhui :

Option Explicit

Sub majdate()
Dim c As Range

For Each c In Sheets("ACTIF").Range("T2:T65536")
 If c < Date And c <> "" Then c = Date
Next c
End Sub

Je voudrais un truc similaire mais la recherche du critere est sur une autre collone:
- Dans la collone G : Remplace tous les "#" par "M" si dans la collone W est superieur a 0

Voila aucune idee comment faire j'ai essayer ca mais ca marche pas du tout:

Sub majM()
Dim g As Range
Dim w As Range

For Each g In Sheets("ACTIF").Range("G2:G65536")
For Each w In Sheets("ACTIF").Range("w2:w65536")

 If g = "#" And w > 0 Then g = "M"
Next g
End Sub

 

[Papou-net]

Re : Mise a jour de plusieur ligne (VBA)

Bonjour Bens7,

Essaies comme ceci:

Sub majM()
Dim g As Range

For Each g In Sheets("ACTIF").Range("G2:G65536")
 If g = "#" And g.Offset(0, 16) > 0 Then g = "M"
Next g
End Sub

Cordialement.

 

[Bens7]

Re : Mise a jour de plusieur ligne (VBA)

TOP donc si je comprend bien

g.Offset(0, 16) > 0

veut dire : et si 16 colonnes plus loin .... ?

 

[Papou-net]

Re : Mise a jour de plusieur ligne (VBA)

TOP donc si je comprend bien

g.Offset(0, 16) > 0

veut dire : et si 16 colonnes plus loin .... ?

RE

Toutafé.

As-tu testé ?

Cordialement.

 

[Bens7]

Re : Mise a jour de plusieur ligne (VBA)

Oui ca marche nikel merci !!
c'est ou le resolu ?

 

[Papou-net]

Re : Mise a jour de plusieur ligne (VBA)

Oui ca marche nikel merci !!
c'est ou le resolu ?

RE

Il faut que, dans ton message, tu cliques sur Modifier le message et tu ajoutes [RESOLU] dans le titre.

Cordialement.