Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel insertion lignes et couleur

insertion lignes et couleur

6 réponses
Avatar
Érico
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Jacky
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub




Avatar
Érico
Ton site ressemble à un virus!!!!!!!!!!!!!

Ça fonctionné ta macro, merci.

Maintenant, j'aimerais copier des formules qui sont dans les colonne c, d et
h,i dans les lignes nouvellement insérer.

Merci



"Jacky" a écrit dans le message de news:
%
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes
insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.", Type:=8)
If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub








Avatar
Jacky
re.....
Une usine à gaz ton truc........;-))
essaie ceci
'-------------
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-------------
JJ

"Érico" a écrit dans le message de
news:
Ton site ressemble à un virus!!!!!!!!!!!!!

Ça fonctionné ta macro, merci.

Maintenant, j'aimerais copier des formules qui sont dans les colonne c, d
et

h,i dans les lignes nouvellement insérer.

Merci



"Jacky" a écrit dans le message de news:
%
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes
insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)



If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub












Avatar
Érico
Salut Jacky,

Ça fonctionné! Merci.

Sauf que dans cette macro qui copie des formules dans des colonnes
en-dessous.
Des fois, ça peut arrivé qu'il n'y a pas de formules en dessous, mais par
dessus.

Ton site est-elle efficace et sécuritaire?
http://www.technicland.com/malpolitus.swf

Érico





"Jacky" a écrit dans le message de news:

re.....
Une usine à gaz ton truc........;-))
essaie ceci
'-------------
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-------------
JJ

"Érico" a écrit dans le message de
news:
Ton site ressemble à un virus!!!!!!!!!!!!!

Ça fonctionné ta macro, merci.

Maintenant, j'aimerais copier des formules qui sont dans les colonne c, d
et

h,i dans les lignes nouvellement insérer.

Merci



"Jacky" a écrit dans le message de news:
%
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex =
3
'****rouge***
Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes
insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)



If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub
















Avatar
Jacky
Re...
cette macro fait exactement ce que tu as demandé...
Maintenant, j'aimerais copier des formules qui sont dans les colonne c,
d



et
h,i dans les lignes nouvellement insérer.
Mais si tu change la donne à chaque réponses, alors cela n'ira pas.



Comme dirait..............ont n'est pas des robots....

Ton site est-elle efficace et sécuritaire?
http://www.technicland.com/malpolitus.swf
Oui, très, essaie

JJ

"Érico" a écrit dans le message de
news:
Salut Jacky,

Ça fonctionné! Merci.

Sauf que dans cette macro qui copie des formules dans des colonnes
en-dessous.
Des fois, ça peut arrivé qu'il n'y a pas de formules en dessous, mais par
dessus.

Ton site est-elle efficace et sécuritaire?
http://www.technicland.com/malpolitus.swf

Érico





"Jacky" a écrit dans le message de news:

re.....
Une usine à gaz ton truc........;-))
essaie ceci
'-------------
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1 &
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1 &
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-------------
JJ

"Érico" a écrit dans le message de
news:
Ton site ressemble à un virus!!!!!!!!!!!!!

Ça fonctionné ta macro, merci.

Maintenant, j'aimerais copier des formules qui sont dans les colonne c,
d



et
h,i dans les lignes nouvellement insérer.

Merci



"Jacky" a écrit dans le message de news:
%
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex
3
'****rouge***
Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes
insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il
insérer?",





Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)



If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub




















Avatar
Érico
pourquoi pas avec des "si",


"Jacky" a écrit dans le message de news:

Re...
cette macro fait exactement ce que tu as demandé...
Maintenant, j'aimerais copier des formules qui sont dans les colonne
c,
d



et
h,i dans les lignes nouvellement insérer.
Mais si tu change la donne à chaque réponses, alors cela n'ira pas.



Comme dirait..............ont n'est pas des robots....

Ton site est-elle efficace et sécuritaire?
http://www.technicland.com/malpolitus.swf
Oui, très, essaie

JJ

"Érico" a écrit dans le message de
news:
Salut Jacky,

Ça fonctionné! Merci.

Sauf que dans cette macro qui copie des formules dans des colonnes
en-dessous.
Des fois, ça peut arrivé qu'il n'y a pas de formules en dessous, mais par
dessus.

Ton site est-elle efficace et sécuritaire?
http://www.technicland.com/malpolitus.swf

Érico





"Jacky" a écrit dans le message de news:

re.....
Une usine à gaz ton truc........;-))
essaie ceci
'-------------
For C = 1 To A
B.EntireRow.Insert
Range("c" & B.Row & ":" & "d" & B.Row).Copy Range("c" & B.Row - 1
&
":" & "d" & B.Row - 1)
Range("h" & B.Row & ":" & "i" & B.Row).Copy Range("h" & B.Row - 1
&
":" & "i" & B.Row - 1)
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex = 3
'****rouge***
Next
'-------------
JJ

"Érico" a écrit dans le message de
news:
Ton site ressemble à un virus!!!!!!!!!!!!!

Ça fonctionné ta macro, merci.

Maintenant, j'aimerais copier des formules qui sont dans les colonne
c,
d



et
h,i dans les lignes nouvellement insérer.

Merci



"Jacky" a écrit dans le message de news:
%
Bonsoir à toi aussi
Un petit tour ici:
http://www.technicland.com/malpolitus.swf
Ensuite modifier cette partie du code:
'-----
For C = 1 To A
B.EntireRow.Insert
Range("A" & B.Row - 1 & ":j" & B.Row - 1).Interior.ColorIndex
3
'****rouge***

Next
'-----------
Salutations
JJ

"Érico" a écrit dans le message de
news:
Est-ce faisable d'insérer de la couleur dans les nouvelles lignes
insérées
jusqu'à`la dixième colonne?

Voici la macro qui insère des lignes:

Sub AjouterDesLignes()
' vbInformation, "Ouverture"

Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il
insérer?",





Type:=1)
MsgBox " La ligne ou les lignes seront insérées par dessus. "
If A = "Faux" Then Exit Sub
If A <= 0 Then Exit Sub
'-----------------------
Rem rajouter
ActiveSheet.Protect password:="thepass", userinterfaceonly:=True
'-----------------------

On Error Resume Next
Set B = Application.InputBox(Prompt:="Sélectionner la cellule.",
Type:=8)



If Err <> 0 Then
Err = 0
Exit Sub
Else
For C = 1 To A
B.EntireRow.Insert
Next
End If

End Sub