Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2
cellules différents.
Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule
devient
1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne dans une cellule.J'aimerai savoir s'il est possible de détecter cette action dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2 cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
"aurelie" <aurelie@discussions.microsoft.com> a écrit dans le message de
news: 35590A5B-671C-44C2-A4CC-6367D58C18C8@microsoft.com...
Bonjour à tous,
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de
ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette
action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule
dans 2
cellules différents.
Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une
cellule
devient
1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne dans une cellule.J'aimerai savoir s'il est possible de détecter cette action dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2 cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Cordialement,
Aurélie
AV
Avec tes valeurs en A1:Axx La colonne B est libre
Sub zzzz() For Each c In Range("A1", [A65536].End(3)) For i = 1 To Len(c) If Asc(Mid(c, i, 1)) = 10 Then c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1) Exit For End If Next i Next c End Sub
AV
Avec tes valeurs en A1:Axx
La colonne B est libre
Sub zzzz()
For Each c In Range("A1", [A65536].End(3))
For i = 1 To Len(c)
If Asc(Mid(c, i, 1)) = 10 Then
c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1)
Exit For
End If
Next i
Next c
End Sub
Sub zzzz() For Each c In Range("A1", [A65536].End(3)) For i = 1 To Len(c) If Asc(Mid(c, i, 1)) = 10 Then c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1) Exit For End If Next i Next c End Sub
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne dans une cellule.J'aimerai savoir s'il est possible de détecter cette action dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2 cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
"aurelie" <aurelie@discussions.microsoft.com> a écrit dans le message de
news: 35590A5B-671C-44C2-A4CC-6367D58C18C8@microsoft.com...
Bonjour à tous,
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de
ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette
action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule
dans 2
cellules différents.
Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une
cellule
devient
1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne dans une cellule.J'aimerai savoir s'il est possible de détecter cette action dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2 cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Cordialement,
Aurélie
Xav
Bonjour
je ne sais pas si ça peut t'aider pour une macro mais dans la feuille même, il suffit de créér une nouvelle colonne avec la formule =SUBSTITUE(A1;CAR(10);CAR(9)) en supponsant que ta donnée soit en A1
(CAR(10) représente le retour ligne ALT+Entrée et CAR(9) la tabulation)
Fais ensuite un copier-collage spécial valeurs et une conversion avec comme séparateur la tabulation
-- Cordialement
@+ Xav "aurelie" a écrit dans le message de news:
Bonjour à tous,
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2
cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule
devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Cordialement,
Aurélie
Bonjour
je ne sais pas si ça peut t'aider pour une macro mais dans la feuille même,
il suffit de créér une nouvelle colonne avec la formule
=SUBSTITUE(A1;CAR(10);CAR(9)) en supponsant que ta donnée soit en A1
(CAR(10) représente le retour ligne ALT+Entrée et CAR(9) la tabulation)
Fais ensuite un copier-collage spécial valeurs et une conversion avec comme
séparateur la tabulation
--
Cordialement
@+
Xav
"aurelie" <aurelie@discussions.microsoft.com> a écrit dans le message de
news:35590A5B-671C-44C2-A4CC-6367D58C18C8@microsoft.com...
Bonjour à tous,
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de
ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette
action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule
dans 2
cellules différents.
Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une
cellule
devient
1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
je ne sais pas si ça peut t'aider pour une macro mais dans la feuille même, il suffit de créér une nouvelle colonne avec la formule =SUBSTITUE(A1;CAR(10);CAR(9)) en supponsant que ta donnée soit en A1
(CAR(10) représente le retour ligne ALT+Entrée et CAR(9) la tabulation)
Fais ensuite un copier-collage spécial valeurs et une conversion avec comme séparateur la tabulation
-- Cordialement
@+ Xav "aurelie" a écrit dans le message de news:
Bonjour à tous,
Les touches "Alt Entrée" permettent, manuellement, de faire un saut de ligne
dans une cellule.J'aimerai savoir s'il est possible de détecter cette action
dans une macro pour pouvoir ensuite placer le contenu de cette cellule dans 2
cellules différents. Ex: 'Tarte aux' ALT+entrée 'fraises' placé sur deux lignes dans une cellule
devient 1 cellule: 'Tarte aux' et une cellule 'fraises'
Si cela est possible, merci de m'aider à le réaliser.
Cordialement,
Aurélie
aurelie
Merci AV, c'est exactement ce qu'il me fallait! Merci également à tous les autres qui m'ont permis de voir les différentes possibilités de cette fonction ALT entrée! Votre rapidité de réponse et votre efficacité sont un réel bonheur!
Aurélie
Avec tes valeurs en A1:Axx La colonne B est libre
Sub zzzz() For Each c In Range("A1", [A65536].End(3)) For i = 1 To Len(c) If Asc(Mid(c, i, 1)) = 10 Then c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1) Exit For End If Next i Next c End Sub
AV
Merci AV, c'est exactement ce qu'il me fallait!
Merci également à tous les autres qui m'ont permis de voir les différentes
possibilités de cette fonction ALT entrée!
Votre rapidité de réponse et votre efficacité sont un réel bonheur!
Aurélie
Avec tes valeurs en A1:Axx
La colonne B est libre
Sub zzzz()
For Each c In Range("A1", [A65536].End(3))
For i = 1 To Len(c)
If Asc(Mid(c, i, 1)) = 10 Then
c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1)
Exit For
End If
Next i
Next c
End Sub
Merci AV, c'est exactement ce qu'il me fallait! Merci également à tous les autres qui m'ont permis de voir les différentes possibilités de cette fonction ALT entrée! Votre rapidité de réponse et votre efficacité sont un réel bonheur!
Aurélie
Avec tes valeurs en A1:Axx La colonne B est libre
Sub zzzz() For Each c In Range("A1", [A65536].End(3)) For i = 1 To Len(c) If Asc(Mid(c, i, 1)) = 10 Then c.Offset(0, 1) = Mid(c, i + 1, Len(c)): c.Value = Left(c, i - 1) Exit For End If Next i Next c End Sub