Bonjour à vous tous
Dans une cellule, exemple a1, il peut y avoir 3 choix de texte
Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors.
en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1)
mais ça ne fonctionne pas.
merci de m'aider
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
Jacky
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
--
Salutations
JJ
"marc" <test@test.com> a écrit dans le message de news:
u0CmYgRQKHA.352@TK2MSFTNGP02.phx.gbl...
Bonjour à vous tous
Dans une cellule, exemple a1, il peut y avoir 3 choix de texte
Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud
dehors.
en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1),
sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1)
mais ça ne fonctionne pas.
merci de m'aider
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
marc
Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
Bonjour Jacky
Ça fonctionne parfaitement.
J'en ai une autre,
que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule
voici le code
Sub test()
Dim i&
For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Not Cells(i, 1) = Cells(i - 1, 1).Value Then
Rows(i).Insert
End If
Next i
End Sub
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: %23wR$dlRQKHA.4580@TK2MSFTNGP06.phx.gbl...
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
--
Salutations
JJ
"marc" <test@test.com> a écrit dans le message de news: u0CmYgRQKHA.352@TK2MSFTNGP02.phx.gbl...
Bonjour à vous tous
Dans une cellule, exemple a1, il peut y avoir 3 choix de texte
Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors.
en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1)
mais ça ne fonctionne pas.
merci de m'aider
Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
michdenis
Bonjour Marc,
Modifie cette ligne de cette façon dans ta procédure ! Rows(i).Resize(2).Insert
"marc" a écrit dans le message de groupe de discussion : # Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
Bonjour Marc,
Modifie cette ligne de cette façon dans ta procédure !
Rows(i).Resize(2).Insert
"marc" <test@test.com> a écrit dans le message de groupe de discussion :
#hnvDsRQKHA.4028@TK2MSFTNGP05.phx.gbl...
Bonjour Jacky
Ça fonctionne parfaitement.
J'en ai une autre,
que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule
voici le code
Sub test()
Dim i&
For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Not Cells(i, 1) = Cells(i - 1, 1).Value Then
Rows(i).Insert
End If
Next i
End Sub
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23wR$dlRQKHA.4580@TK2MSFTNGP06.phx.gbl...
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
--
Salutations
JJ
"marc" <test@test.com> a écrit dans le message de news:
u0CmYgRQKHA.352@TK2MSFTNGP02.phx.gbl...
Bonjour à vous tous
Dans une cellule, exemple a1, il peut y avoir 3 choix de texte
Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors.
en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1)
mais ça ne fonctionne pas.
merci de m'aider
Modifie cette ligne de cette façon dans ta procédure ! Rows(i).Resize(2).Insert
"marc" a écrit dans le message de groupe de discussion : # Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
isabelle
bonjour Marc,
remplace :
Rows(i).Insert
par
Rows(i & ":" & i + 1).Insert
isabelle
marc a écrit :
Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider
bonjour Marc,
remplace :
Rows(i).Insert
par
Rows(i & ":" & i + 1).Insert
isabelle
marc a écrit :
Bonjour Jacky
Ça fonctionne parfaitement.
J'en ai une autre,
que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule
voici le code
Sub test()
Dim i&
For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Not Cells(i, 1) = Cells(i - 1, 1).Value Then
Rows(i).Insert
End If
Next i
End Sub
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: %23wR$dlRQKHA.4580@TK2MSFTNGP06.phx.gbl...
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
--
Salutations
JJ
"marc" <test@test.com> a écrit dans le message de news: u0CmYgRQKHA.352@TK2MSFTNGP02.phx.gbl...
Bonjour à vous tous
Dans une cellule, exemple a1, il peut y avoir 3 choix de texte
Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors.
en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1)
mais ça ne fonctionne pas.
merci de m'aider
Bonjour Jacky Ça fonctionne parfaitement. J'en ai une autre, que dois-je changer dans mon code pour que la macro insère 2 ligne et non, une seule voici le code
Sub test() Dim i& For i = Range("a65536").End(xlUp).Row To 2 Step -1 If Not Cells(i, 1) = Cells(i - 1, 1).Value Then Rows(i).Insert End If Next i End Sub
"Jacky" a écrit dans le message de news: %23wR$
Bonjour,
=SI(ET(A1<>"Vrai";A1<>"Faux");GAUCHE(A1;1);A1)
-- Salutations JJ
"marc" a écrit dans le message de news:
Bonjour à vous tous Dans une cellule, exemple a1, il peut y avoir 3 choix de texte Vrai, ou Faux ou une lettre avec du texte (exemple: a) Il fait chaud dehors. en b1, j'aimerais que si A1 est différent de Vrai ou faux, gauche(a1;1), sinon A1.
Alors j'essaie =si(a1<>"vrai;faux";gauche(a1);a1) mais ça ne fonctionne pas. merci de m'aider