je patauge ce matin.
je cherche un bout de code qui me permet de me déplacer vers la droite
jusqu'à ce que je trouve le mot TOTAL (sur la ligne3).
j'ai fais ça :
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub
Bonjour,
On Error Resume Next
[3:3].Find(what:="total", MatchCase:=False).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin.
je cherche un bout de code qui me permet de me déplacer vers la droite
jusqu'à ce que je trouve le mot TOTAL (sur la ligne3).
j'ai fais ça :
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub
boblebob
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et
if end if comme dans mon exemple stp ?
merci d'avance.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
3a00df90-e75e-41bc-b2df-8488684bd3b9@o6g2000hsd.googlegroups.com...
Bonjour,
On Error Resume Next
[3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin.
je cherche un bout de code qui me permet de me déplacer vers la droite
jusqu'à ce que je trouve le mot TOTAL (sur la ligne3).
j'ai fais ça :
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub
JB
[A3].Select Do While UCase(ActiveCell) <> "TOTAL" ActiveCell.Offset(0, 1).Select Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
[A3].Select
Do While UCase(ActiveCell) <> "TOTAL"
ActiveCell.Offset(0, 1).Select
Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et
if end if comme dans mon exemple stp ?
merci d'avance.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
3a00df90-e75e-41bc-b2df-8488684bd...@o6g2000hsd.googlegroups.com...
Bonjour,
On Error Resume Next
[3:3].Find(what:="total", MatchCase:=False).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin.
je cherche un bout de code qui me permet de me déplacer vers la droite
jusqu'à ce que je trouve le mot TOTAL (sur la ligne3).
j'ai fais ça :
Sub macro8()
Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -
[A3].Select Do While UCase(ActiveCell) <> "TOTAL" ActiveCell.Offset(0, 1).Select Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
boblebob
merci ! "JB" a écrit dans le message de news:
[A3].Select Do While UCase(ActiveCell) <> "TOTAL" ActiveCell.Offset(0, 1).Select Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
9dd5050f-bde2-4b91-90ad-24f82678393f@f3g2000hsg.googlegroups.com...
[A3].Select
Do While UCase(ActiveCell) <> "TOTAL"
ActiveCell.Offset(0, 1).Select
Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop
et
if end if comme dans mon exemple stp ?
merci d'avance.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
3a00df90-e75e-41bc-b2df-8488684bd...@o6g2000hsd.googlegroups.com...
Bonjour,
On Error Resume Next
[3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin.
je cherche un bout de code qui me permet de me déplacer vers la droite
jusqu'à ce que je trouve le mot TOTAL (sur la ligne3).
j'ai fais ça :
Sub macro8()
Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -
[A3].Select Do While UCase(ActiveCell) <> "TOTAL" ActiveCell.Offset(0, 1).Select Loop
JB
On 21 nov, 10:51, "boblebob" <a> wrote:
merci pour cette réponse, est-ce que tu aurais une solution avec Do loop et if end if comme dans mon exemple stp ? merci d'avance. "JB" a écrit dans le message de news:
Bonjour,
On Error Resume Next [3:3].Find(what:="total", MatchCase:úlse).Select
JB
On 21 nov, 10:28, "boblebob" <a> wrote:
bjr,
je patauge ce matin. je cherche un bout de code qui me permet de me déplacer vers la droite jusqu'à ce que je trouve le mot TOTAL (sur la ligne3). j'ai fais ça :
Sub macro8() Do
If ActiveCell.Value <> "TOTAL" Then
Cells(3, i + 1) = Cells(3, i)
End If
Loop Until ActiveCell.Value = "TOTAL"
End Sub- Masquer le texte des messages précédents -