Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition mettre
un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par
exemple.
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
Ange Ounis
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
----------
Ange Ounis
----------
Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition mettre
un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par
exemple.
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
FdeCourt
Hello,
Je ne vois pas comment faire sans passer par VBA.
Sub suppr_italique() Dim i As Integer For i = 65536 To 1 Step -1 If Cells(i, 1).Font.Italic = True Then Rows(i).Delete Next End Sub
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition met tre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Hello,
Je ne vois pas comment faire sans passer par VBA.
Sub suppr_italique()
Dim i As Integer
For i = 65536 To 1 Step -1
If Cells(i, 1).Font.Italic = True Then Rows(i).Delete
Next
End Sub
Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition met tre
un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par
exemple.
Sub suppr_italique() Dim i As Integer For i = 65536 To 1 Step -1 If Cells(i, 1).Font.Italic = True Then Rows(i).Delete Next End Sub
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition met tre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Lulu
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Ange merci de tes lumières, le problème, un peu plus que néophyte :
comment on crée la fonction IsItalic(cell)
c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations
Luc
"Ange Ounis" <nospam@nospam> a écrit dans le message de news:
upvpvwyLHHA.1276@TK2MSFTNGP04.phx.gbl...
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
----------
Ange Ounis
----------
Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition
mettre un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1
par exemple.
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Ange Ounis
Pour faire au plus simple : Dans le classeur où tu veux repérer les cellules en italique, passe dans l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le nom du VBAProject de ton classeur pour t'assurer qu'il est sélectionné, ajoute un module en utilisant le menu InsertionModule. Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur droit de A1 si tes données en colonne B n'ont pas de trou).
---------- Ange Ounis ----------
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Pour faire au plus simple :
Dans le classeur où tu veux repérer les cellules en italique, passe dans
l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le nom du
VBAProject de ton classeur pour t'assurer qu'il est sélectionné, ajoute un
module en utilisant le menu InsertionModule.
Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur droit de
A1 si tes données en colonne B n'ont pas de trou).
----------
Ange Ounis
----------
Ange merci de tes lumières, le problème, un peu plus que néophyte :
comment on crée la fonction IsItalic(cell)
c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations
Luc
"Ange Ounis" <nospam@nospam> a écrit dans le message de news:
upvpvwyLHHA.1276@TK2MSFTNGP04.phx.gbl...
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
----------
Ange Ounis
----------
Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition
mettre un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1
par exemple.
Pour faire au plus simple : Dans le classeur où tu veux repérer les cellules en italique, passe dans l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le nom du VBAProject de ton classeur pour t'assurer qu'il est sélectionné, ajoute un module en utilisant le menu InsertionModule. Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur droit de A1 si tes données en colonne B n'ont pas de trou).
---------- Ange Ounis ----------
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Lulu
Ange, merci, suite à tes premières lumières, j'ai téléchargé la fonction toute faite "format fonction" (ParryFunc.xla) et je l'ai ajouté aux macros complémentaires. Impeccable cela me met VRAI ou FAUX puis après je trie et j'ai tous les italiques ensemble.
Merci encore, mais je vais quand même essayé de créer le module.
"Ange Ounis" a écrit dans le message de news:
Pour faire au plus simple : Dans le classeur où tu veux repérer les cellules en italique, passe dans l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le nom du VBAProject de ton classeur pour t'assurer qu'il est sélectionné, ajoute un module en utilisant le menu InsertionModule. Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur droit de A1 si tes données en colonne B n'ont pas de trou).
---------- Ange Ounis ----------
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
Merci de vos lumières Luc
Ange, merci, suite à tes premières lumières, j'ai téléchargé la fonction
toute faite "format fonction" (ParryFunc.xla) et je l'ai ajouté aux macros
complémentaires.
Impeccable cela me met VRAI ou FAUX puis après je trie et j'ai tous les
italiques ensemble.
Merci encore, mais je vais quand même essayé de créer le module.
"Ange Ounis" <nospam@nospam> a écrit dans le message de news:
eR3zeP1LHHA.3556@TK2MSFTNGP03.phx.gbl...
Pour faire au plus simple :
Dans le classeur où tu veux repérer les cellules en italique, passe dans
l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le
nom du VBAProject de ton classeur pour t'assurer qu'il est sélectionné,
ajoute un module en utilisant le menu InsertionModule.
Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur
droit de A1 si tes données en colonne B n'ont pas de trou).
----------
Ange Ounis
----------
Ange merci de tes lumières, le problème, un peu plus que néophyte :
comment on crée la fonction IsItalic(cell)
c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations
Luc
"Ange Ounis" <nospam@nospam> a écrit dans le message de news:
upvpvwyLHHA.1276@TK2MSFTNGP04.phx.gbl...
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell)
IsItalic = cell.Font.Italic * -1
End Function
----------
Ange Ounis
----------
Bonjour,
Exemple colonne A texte non italique ou italique
30000 lignes
Je voudrais supprimer les lignes qui sont en italiques
Comment faire ? je pensais rajouter une colonne et avec une condition
mettre un chifrre puis faire un tri,
mais je ne connais pas de fonction qui si cellule b2 est italique a2=1
par exemple.
Ange, merci, suite à tes premières lumières, j'ai téléchargé la fonction toute faite "format fonction" (ParryFunc.xla) et je l'ai ajouté aux macros complémentaires. Impeccable cela me met VRAI ou FAUX puis après je trie et j'ai tous les italiques ensemble.
Merci encore, mais je vais quand même essayé de créer le module.
"Ange Ounis" a écrit dans le message de news:
Pour faire au plus simple : Dans le classeur où tu veux repérer les cellules en italique, passe dans l'éditeur de code en appuyant sur Alt+F11 puis, après avoir cliqué sur le nom du VBAProject de ton classeur pour t'assurer qu'il est sélectionné, ajoute un module en utilisant le menu InsertionModule. Dans la page blanche qui s'affiche alors recopie le code de la fonction :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
Enregistre et retourne dans Excel. Tu peux alors saisir la formule
IsItalic(B1)
en A1 et recopier vers le bas (ou double cliquer sur le coin inférieur droit de A1 si tes données en colonne B n'ont pas de trou).
---------- Ange Ounis ----------
Ange merci de tes lumières, le problème, un peu plus que néophyte : comment on crée la fonction IsItalic(cell) c'est quoi un module ordinaire du classeur ?
Merci d'avance pour le complément d'informations Luc
"Ange Ounis" a écrit dans le message de news:
De A1 à Ax (en recopiant vers le bas) :
IsItalic(B1)
avec dans un module ordinaire du classeur :
Function IsItalic(cell) IsItalic = cell.Font.Italic * -1 End Function
---------- Ange Ounis ----------
Bonjour, Exemple colonne A texte non italique ou italique 30000 lignes Je voudrais supprimer les lignes qui sont en italiques Comment faire ? je pensais rajouter une colonne et avec une condition mettre un chifrre puis faire un tri, mais je ne connais pas de fonction qui si cellule b2 est italique a2=1 par exemple.
