Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir pour
le reste.
Merci
Manu
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir pour
le reste.
Merci
Manu
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir pour
le reste.
Merci
Manu
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur le
dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules
comportant "zaza", met toi sur le dernier "zaza" puis decale ma
selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs,
mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules
comportant "zaza", met toi sur le dernier "zaza" puis decale ma
selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs,
mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules
comportant "zaza", met toi sur le dernier "zaza" puis decale ma
selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs,
mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Re...
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" <afib@afib-formation.com> a écrit dans le message de news: ilduqf$of0$1@speranza.aioe.org...
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une cellule
il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi sur
le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite. Ca me
permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en sortir
pour le reste.
Merci
Manu
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est qu'il
recherche une cellule contenant le mot zaza, meme si dans une cellule il
y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news:
ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis decale
ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller
ailleurs, mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildvuo$rg5$1@speranza.aioe.org...
Re...
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" <afib@afib-formation.com> a écrit dans le message de news:
ilduqf$of0$1@speranza.aioe.org...
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est qu'il
recherche une cellule contenant le mot zaza, meme si dans une cellule il
y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis decale
ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller
ailleurs, mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est qu'il
recherche une cellule contenant le mot zaza, meme si dans une cellule il
y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news:
ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis decale
ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller
ailleurs, mais je pense pouvoir m'en sortir pour le reste.
Merci
Manu
Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news: ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en
sortir pour le reste.
Merci
Manu
Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ile090$s9l$1@speranza.aioe.org...
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildvuo$rg5$1@speranza.aioe.org...
Re...
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" <afib@afib-formation.com> a écrit dans le message de news: ilduqf$of0$1@speranza.aioe.org...
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en
sortir pour le reste.
Merci
Manu
Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news: ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la droite.
Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense pouvoir m'en
sortir pour le reste.
Merci
Manu
Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" a écrit dans le message de news: ile162$vam$Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news: ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la
droite. Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense
pouvoir m'en sortir pour le reste.
Merci
Manu
Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" <manuinf60@gmail.com> a écrit dans le message de news: ile162$vam$1@speranza.aioe.org...
Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ile090$s9l$1@speranza.aioe.org...
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildvuo$rg5$1@speranza.aioe.org...
Re...
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" <afib@afib-formation.com> a écrit dans le message de news: ilduqf$of0$1@speranza.aioe.org...
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la
droite. Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense
pouvoir m'en sortir pour le reste.
Merci
Manu
Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" a écrit dans le message de news: ile162$vam$Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je me permettrai de refaire appel au
forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news: ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news: ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce que ta macro recherche une cellule
zaza, ce que je souhaite c'est qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news: ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news: ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des cellules comportant "zaza", met toi
sur le dernier "zaza" puis decale ma selection d'une ligne en dessous et de 18 colonnes sur la
droite. Ca me permettra de copier la cellule ou je serais et de la coller ailleurs, mais je pense
pouvoir m'en sortir pour le reste.
Merci
Manu
Oupss!!
pas vu le ".Range("A1")."
Pour copier la cellule
Cells(i, LaColonne).Offset(1, 18).Copy Sheets("feuil2").[a1]
pour copier la plage à partir de A1
Range(Cells(1, 1), Cells(i, LaColonne).Offset(1, 18)).copy
Sheets("feuil2").[a1]
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
4d7a90c8$0$32451$Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ile162$vam$Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je
me permettrai de refaire appel au forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news:
ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est
qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news:
ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis
decale ma selection d'une ligne en dessous et de 18 colonnes sur
la droite. Ca me permettra de copier la cellule ou je serais et de
la coller ailleurs, mais je pense pouvoir m'en sortir pour le
reste.
Merci
Manu
Oupss!!
pas vu le ".Range("A1")."
Pour copier la cellule
Cells(i, LaColonne).Offset(1, 18).Copy Sheets("feuil2").[a1]
pour copier la plage à partir de A1
Range(Cells(1, 1), Cells(i, LaColonne).Offset(1, 18)).copy
Sheets("feuil2").[a1]
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
4d7a90c8$0$32451$ba4acef3@reader.news.orange.fr...
Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" <manuinf60@gmail.com> a écrit dans le message de news:
ile162$vam$1@speranza.aioe.org...
Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je
me permettrai de refaire appel au forum.
Bonne soirée
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ile090$s9l$1@speranza.aioe.org...
Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildvuo$rg5$1@speranza.aioe.org...
Re...
..je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" <afib@afib-formation.com> a écrit dans le message de news:
ilduqf$of0$1@speranza.aioe.org...
Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est
qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildqf1$de5$1@speranza.aioe.org...
Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ildoqj$94a$1@speranza.aioe.org...
Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
4d7a5d12$0$32467$ba4acef3@reader.news.orange.fr...
Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis
decale ma selection d'une ligne en dessous et de 18 colonnes sur
la droite. Ca me permettra de copier la cellule ou je serais et de
la coller ailleurs, mais je pense pouvoir m'en sortir pour le
reste.
Merci
Manu
Oupss!!
pas vu le ".Range("A1")."
Pour copier la cellule
Cells(i, LaColonne).Offset(1, 18).Copy Sheets("feuil2").[a1]
pour copier la plage à partir de A1
Range(Cells(1, 1), Cells(i, LaColonne).Offset(1, 18)).copy
Sheets("feuil2").[a1]
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
4d7a90c8$0$32451$Re.
Si c'est pour une copie, tu peux te passer du "select"
Cells(i, LaColonne).Offset(1, 18).Range("A1").copy > >ici la destination
Par exemple
Cells(i, LaColonne).Offset(1, 18).Range("A1").Copy Sheets("feuil2").[a1]
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ile162$vam$Trop Nickel, merci jacky, je n'ai changé que cette ligne :
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
En :
Cells(i, LaColonne).Offset(1, 18).Range("A1").Select
C'est tout ce que je voulais, merci encore, si je bute par la suite, je
me permettrai de refaire appel au forum.
Bonne soirée
Manu
"Jacky" a écrit dans le message de news:
ile090$s9l$Ou si Zaza est sous forme variable
Lemot = "zaza"
If Cells(i, LaColonne) Like "*" & Lemot & "*" Then
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildvuo$rg5$Re.....je souhaite c'est qu'il recherche une cellule contenant le mot zaza
Ce n'était pas précisé ;o)
Remplace cette ligne
If Cells(i, LaColonne) = "zaza" Then
par
If Cells(i, LaColonne) Like "*zaza*" Then
--
Salutations
JJ
"MANU" a écrit dans le message de news:
ilduqf$of0$Merci Jacky, mais ca ne fonctionne pas, mais je crois que c'est parce
que ta macro recherche une cellule zaza, ce que je souhaite c'est
qu'il recherche une cellule contenant le mot zaza, meme si dans une
cellule il y a "la zaza à sa maman"
Manu
"Jacky" a écrit dans le message de news:
ildqf1$de5$Re..
Au cas ou il n"y a aucune correspondance
'----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
Exit Sub
End If
Next
MsgBox "Aucune correspondance"
End Sub
'-------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
ildoqj$94a$Bonsoir
'-----------------
Sub jj()
Dim Derlg As Long, LaColonne As Integer
LaColonne = 3 ' Adapter la colonne de recherche
Derlg = Cells(Rows.Count, LaColonne).End(3).Row
For i = Derlg To 2 Step -1
If Cells(i, LaColonne) = "zaza" Then Exit For
Next
MsgBox Cells(i, LaColonne).Offset(1, 18).Address
' Renplacer le Msgbox par le code de copie
End Sub
'-------------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
4d7a5d12$0$32467$Bonjour,
Je voudais demander à Excel Lorsque tu vois dans la colonne des
cellules comportant "zaza", met toi sur le dernier "zaza" puis
decale ma selection d'une ligne en dessous et de 18 colonnes sur
la droite. Ca me permettra de copier la cellule ou je serais et de
la coller ailleurs, mais je pense pouvoir m'en sortir pour le
reste.
Merci
Manu