Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un pet it
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à pa rtir de la
colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" <marin.du.lac@free.fr> a écrit dans le message de news:
45c3726b$0$456$426a74cc@news.free.fr...
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" <marin.du.lac@free.fr> a écrit dans le message de news:
45c3726b$0$456$426a74cc@news.free.fr...
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" <dupond@dupont> a écrit dans le message de news:
OF%23o5ivRHHA.4404@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" <marin.du.lac@free.fr> a écrit dans le message de news:
45c3726b$0$456$426a74cc@news.free.fr...
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la dernière
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la derni ère
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple ) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le systèm e de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la derni ère
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" <dupond@dupont> a écrit dans le message de news:
OF%23o5ivRHHA.4...@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple ) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" <marin.du....@free.fr> a écrit dans le message de news:
45c3726b$0$456$426a7...@news.free.fr...
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le systèm e de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la derni ère
ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre sous
le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple ) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un petit
problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir de
la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le systèm e de
range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Re....Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
En tenant compte de la dernière ligne renseignée en colonne A
'-----------
Sub jj()
x = [a65536].End(3).Row + 1
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'--------------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c44932$0$23020$Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre
sous le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir
de la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système
de range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Re....
Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
En tenant compte de la dernière ligne renseignée en colonne A
'-----------
Sub jj()
x = [a65536].End(3).Row + 1
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'--------------
--
Salutations
JJ
"Marin du Lac" <marin.du.lac@free.fr> a écrit dans le message de news:
45c44932$0$23020$426a34cc@news.free.fr...
Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre
sous le dernière ligne de données
Merci d'avance
Marcel
"Jacky" <dupond@dupont> a écrit dans le message de news:
OF%23o5ivRHHA.4404@TK2MSFTNGP03.phx.gbl...
Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" <marin.du.lac@free.fr> a écrit dans le message de news:
45c3726b$0$456$426a74cc@news.free.fr...
Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir
de la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système
de range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
Re....Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
Donc l'insertion devient inutile, c'est bien cela ????
En tenant compte de la dernière ligne renseignée en colonne A
'-----------
Sub jj()
x = [a65536].End(3).Row + 1
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'--------------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c44932$0$23020$Bonjour
C'est encore moi et pour la même chose ou presque.
Est-ce qu'il existe une possibilité de mettre cette ligne sous la
dernière ligne du tableau.
et est-ce que la formule serar valable pour tout ce qu'on veux mettre
sous le dernière ligne de données
Merci d'avance
Marcel
"Jacky" a écrit dans le message de news:
OF%Bonsoir,
Ceci insert une ligne avant la sélection en cours, copie une cellule
préalablement formaté et peinturlurée au choix (P1 dans l'exemple) et
applique ce format aux 6 cellules de cette ligne.
'-----------
Sub jj()
x = ActiveCell.Row
Rows(x).Insert Shift:=xlDown
Range("P1").Copy Range("a" & x & ":f" & x)
Application.CutCopyMode = False
End Sub
'-----------
--
Salutations
JJ
"Marin du Lac" a écrit dans le message de news:
45c3726b$0$456$Bonjour à tous
Je viens vous demander de l'aide car je débute en macro et j'ais un
petit problème.
Je dois insérer une ligne de 6 cellules grisées et entourées à partir
de la colone A, mais sur nimporte quelle ligne.
Je l'ai fait par apprentissage, cela fonctionne, mais avec le système
de range "", la ligne s'insert toujours au même endroit.
Avez-vous une solution ??
Merci d'avance
Marcel
