J'aimerais rajouter de la couleur aux cellules qui sont insérées dans cette
macro.
Comment faire?
Merci
Voici la macro;
_______________________________________________________________
Sub AjouterDesLignes()
Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
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
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
Érico
Et comment lui dire de copier des cellules des autres déjà là?
"Érico" a écrit dans le message de news: %23$
Bonjour,
J'aimerais rajouter de la couleur aux cellules qui sont insérées dans cette macro. Comment faire? Merci
Voici la macro; _______________________________________________________________
Sub AjouterDesLignes() Dim A As Variant, B As Range, C As Integer A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?", Type:=1)
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
Et comment lui dire de copier des cellules des autres déjà là?
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
%23$n7F93vFHA.2880@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'aimerais rajouter de la couleur aux cellules qui sont insérées dans
cette macro.
Comment faire?
Merci
Voici la macro;
_______________________________________________________________
Sub AjouterDesLignes()
Dim A As Variant, B As Range, C As Integer
A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?",
Type:=1)
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
Et comment lui dire de copier des cellules des autres déjà là?
"Érico" a écrit dans le message de news: %23$
Bonjour,
J'aimerais rajouter de la couleur aux cellules qui sont insérées dans cette macro. Comment faire? Merci
Voici la macro; _______________________________________________________________
Sub AjouterDesLignes() Dim A As Variant, B As Range, C As Integer A = Application.InputBox(Prompt:="Combien de lignes faut-il insérer?", Type:=1)
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
