Bonsoir
Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur
de la cellule colonne 1 est égale à 1.
si qqun a la solution par avance merci
jclaude
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
michdenis
Bonjour Jcp66,
Si la colonne 1 = la première colonne de la selectioin If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Selection.Cells(a, 1) = 1 Then Selection.Cells(a, 1).EntireRow.Insert End If Next End If
Si la colonne 1 = première colonne de la feuille. If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Cells(a, 1) = 1 Then Cells(a, 1).EntireRow.Insert End If Next End If
Salutations!
"jcp66" a écrit dans le message de news: 43c59a19$0$18309$ Bonsoir Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur de la cellule colonne 1 est égale à 1. si qqun a la solution par avance merci jclaude
Bonjour Jcp66,
Si la colonne 1 = la première colonne de la selectioin
If TypeName(Selection) = "Range" Then
nb = Selection.Rows.Count
For a = nb To 1 Step -1
If Selection.Cells(a, 1) = 1 Then
Selection.Cells(a, 1).EntireRow.Insert
End If
Next
End If
Si la colonne 1 = première colonne de la feuille.
If TypeName(Selection) = "Range" Then
nb = Selection.Rows.Count
For a = nb To 1 Step -1
If Cells(a, 1) = 1 Then
Cells(a, 1).EntireRow.Insert
End If
Next
End If
Salutations!
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news: 43c59a19$0$18309$8fcfb975@news.wanadoo.fr...
Bonsoir
Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur
de la cellule colonne 1 est égale à 1.
si qqun a la solution par avance merci
jclaude
Si la colonne 1 = la première colonne de la selectioin If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Selection.Cells(a, 1) = 1 Then Selection.Cells(a, 1).EntireRow.Insert End If Next End If
Si la colonne 1 = première colonne de la feuille. If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Cells(a, 1) = 1 Then Cells(a, 1).EntireRow.Insert End If Next End If
Salutations!
"jcp66" a écrit dans le message de news: 43c59a19$0$18309$ Bonsoir Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur de la cellule colonne 1 est égale à 1. si qqun a la solution par avance merci jclaude
jcp66
merci jcp
"michdenis" a écrit dans le message de news: %
Bonjour Jcp66,
Si la colonne 1 = la première colonne de la selectioin If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Selection.Cells(a, 1) = 1 Then Selection.Cells(a, 1).EntireRow.Insert End If Next End If
Si la colonne 1 = première colonne de la feuille. If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Cells(a, 1) = 1 Then Cells(a, 1).EntireRow.Insert End If Next End If
Salutations!
"jcp66" a écrit dans le message de news: 43c59a19$0$18309$ Bonsoir Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur de la cellule colonne 1 est égale à 1. si qqun a la solution par avance merci jclaude
merci
jcp
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23p5YOryFGHA.1676@TK2MSFTNGP09.phx.gbl...
Bonjour Jcp66,
Si la colonne 1 = la première colonne de la selectioin
If TypeName(Selection) = "Range" Then
nb = Selection.Rows.Count
For a = nb To 1 Step -1
If Selection.Cells(a, 1) = 1 Then
Selection.Cells(a, 1).EntireRow.Insert
End If
Next
End If
Si la colonne 1 = première colonne de la feuille.
If TypeName(Selection) = "Range" Then
nb = Selection.Rows.Count
For a = nb To 1 Step -1
If Cells(a, 1) = 1 Then
Cells(a, 1).EntireRow.Insert
End If
Next
End If
Salutations!
"jcp66" <jcp66@wanadoo.fr> a écrit dans le message de news:
43c59a19$0$18309$8fcfb975@news.wanadoo.fr...
Bonsoir
Dans une macro je voudrais inserer une ligne vide chaque fois que la
valeur
de la cellule colonne 1 est égale à 1.
si qqun a la solution par avance merci
jclaude
Si la colonne 1 = la première colonne de la selectioin If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Selection.Cells(a, 1) = 1 Then Selection.Cells(a, 1).EntireRow.Insert End If Next End If
Si la colonne 1 = première colonne de la feuille. If TypeName(Selection) = "Range" Then nb = Selection.Rows.Count For a = nb To 1 Step -1 If Cells(a, 1) = 1 Then Cells(a, 1).EntireRow.Insert End If Next End If
Salutations!
"jcp66" a écrit dans le message de news: 43c59a19$0$18309$ Bonsoir Dans une macro je voudrais inserer une ligne vide chaque fois que la valeur de la cellule colonne 1 est égale à 1. si qqun a la solution par avance merci jclaude