Bonjour à tous
voila sur une feuille mes donnees sont organisé comme suit
aaa aaz ddd bb xxx1 yyy1
xxx2 yyy2
xxx3 yyy3
xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache
sur toute les lignes en bas à conditions que les cellues comportant xxx soit
pleine
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième cellule ? Essaie : Sub test() Dim Plage As Range, c As Range Set Plage = Range("E1", Range("E65536").End(xlUp)) For Each c In Plage If c.Offset(0, -4) <> "" Then Var = Range(c.Offset(0, -4), c.Offset(0, -1)) ElseIf c.Value <> "" Then c.Offset(0, -4) = Var(1, 1) t = c.Address Range(c.Offset(0, -4), c.Offset(0, -1)) = Var End If Next c End Sub Cordialement. daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous voila sur une feuille mes donnees sont organisé comme suit aaa aaz ddd bb xxx1 yyy1 xxx2 yyy2 xxx3 yyy3 xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache sur toute les lignes en bas à conditions que les cellues comportant xxx soit pleine merci
Bonsoir.
Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième
cellule ?
Essaie :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("E1", Range("E65536").End(xlUp))
For Each c In Plage
If c.Offset(0, -4) <> "" Then
Var = Range(c.Offset(0, -4), c.Offset(0, -1))
ElseIf c.Value <> "" Then
c.Offset(0, -4) = Var(1, 1)
t = c.Address
Range(c.Offset(0, -4), c.Offset(0, -1)) = Var
End If
Next c
End Sub
Cordialement.
daniel
"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de news:
uclJMQwZGHA.3972@TK2MSFTNGP04.phx.gbl...
Bonjour à tous
voila sur une feuille mes donnees sont organisé comme suit
aaa aaz ddd bb xxx1 yyy1
xxx2 yyy2
xxx3 yyy3
xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache
sur toute les lignes en bas à conditions que les cellues comportant xxx
soit pleine
merci
Bonsoir. Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième cellule ? Essaie : Sub test() Dim Plage As Range, c As Range Set Plage = Range("E1", Range("E65536").End(xlUp)) For Each c In Plage If c.Offset(0, -4) <> "" Then Var = Range(c.Offset(0, -4), c.Offset(0, -1)) ElseIf c.Value <> "" Then c.Offset(0, -4) = Var(1, 1) t = c.Address Range(c.Offset(0, -4), c.Offset(0, -1)) = Var End If Next c End Sub Cordialement. daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous voila sur une feuille mes donnees sont organisé comme suit aaa aaz ddd bb xxx1 yyy1 xxx2 yyy2 xxx3 yyy3 xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache sur toute les lignes en bas à conditions que les cellues comportant xxx soit pleine merci
Hicham Oudrhiri
Merci super H "Daniel" a écrit dans le message de news:
Bonsoir. Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième cellule ? Essaie : Sub test() Dim Plage As Range, c As Range Set Plage = Range("E1", Range("E65536").End(xlUp)) For Each c In Plage If c.Offset(0, -4) <> "" Then Var = Range(c.Offset(0, -4), c.Offset(0, -1)) ElseIf c.Value <> "" Then c.Offset(0, -4) = Var(1, 1) t = c.Address Range(c.Offset(0, -4), c.Offset(0, -1)) = Var End If Next c End Sub Cordialement. daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous voila sur une feuille mes donnees sont organisé comme suit aaa aaz ddd bb xxx1 yyy1 xxx2 yyy2 xxx3 yyy3 xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache sur toute les lignes en bas à conditions que les cellues comportant xxx soit pleine merci
Merci super
H
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O55k95wZGHA.4620@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième
cellule ?
Essaie :
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("E1", Range("E65536").End(xlUp))
For Each c In Plage
If c.Offset(0, -4) <> "" Then
Var = Range(c.Offset(0, -4), c.Offset(0, -1))
ElseIf c.Value <> "" Then
c.Offset(0, -4) = Var(1, 1)
t = c.Address
Range(c.Offset(0, -4), c.Offset(0, -1)) = Var
End If
Next c
End Sub
Cordialement.
daniel
"Hicham Oudrhiri" <hichamoudrhiri@yahoo.fr> a écrit dans le message de
news: uclJMQwZGHA.3972@TK2MSFTNGP04.phx.gbl...
Bonjour à tous
voila sur une feuille mes donnees sont organisé comme suit
aaa aaz ddd bb xxx1 yyy1
xxx2 yyy2
xxx3 yyy3
xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la
guache sur toute les lignes en bas à conditions que les cellues
comportant xxx soit pleine
merci
Merci super H "Daniel" a écrit dans le message de news:
Bonsoir. Je ne suis pas sûr d'avoir bien compris. Quel est le rôle de la sixième cellule ? Essaie : Sub test() Dim Plage As Range, c As Range Set Plage = Range("E1", Range("E65536").End(xlUp)) For Each c In Plage If c.Offset(0, -4) <> "" Then Var = Range(c.Offset(0, -4), c.Offset(0, -1)) ElseIf c.Value <> "" Then c.Offset(0, -4) = Var(1, 1) t = c.Address Range(c.Offset(0, -4), c.Offset(0, -1)) = Var End If Next c End Sub Cordialement. daniel "Hicham Oudrhiri" a écrit dans le message de news:
Bonjour à tous voila sur une feuille mes donnees sont organisé comme suit aaa aaz ddd bb xxx1 yyy1 xxx2 yyy2 xxx3 yyy3 xxx4 yyy4
Je voudrais pouvoir copier lae 4 premieres cellule a partir de la guache sur toute les lignes en bas à conditions que les cellues comportant xxx soit pleine merci
