Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B
J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à
la dernière cellule de la colonne A correspondant au remplissage dans la
colonne B.
Puis remplir cette sélection par un mot dans toutes ces cellules.
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news:3C1ED006-C9A8-4704-8248-C5620894B4F4@microsoft.com...
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se
faisant
à partir de la B
J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à
la dernière cellule de la colonne A correspondant au remplissage dans la
colonne B.
Puis remplir cette sélection par un mot dans toutes ces cellules.
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
Jacky
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
Ouppsss....
Pas vu qu'il fallait mettre un mot:
'---------
derlg = ActiveSheet.Range("b65536").End(3).Row
Range("A2:a" & derlg) = "Le mot"
'---------
JJ
"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news:3C1ED006-C9A8-4704-8248-C5620894B4F4@microsoft.com...
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se
faisant
à partir de la B
J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à
la dernière cellule de la colonne A correspondant au remplissage dans la
colonne B.
Puis remplir cette sélection par un mot dans toutes ces cellules.
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
Cyrille
pas bien grave, j'ai trouvé pour le mot pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en erreur si la feuille existe deja sous ce nom là et dans ce cas la supprimer l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
pas bien grave, j'ai trouvé pour le mot
pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en erreur
si la feuille existe deja sous ce nom là et dans ce cas la supprimer
l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss....
Pas vu qu'il fallait mettre un mot:
'---------
derlg = ActiveSheet.Range("b65536").End(3).Row
Range("A2:a" & derlg) = "Le mot"
'---------
JJ
"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news:3C1ED006-C9A8-4704-8248-C5620894B4F4@microsoft.com...
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se
faisant
à partir de la B
J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à
la dernière cellule de la colonne A correspondant au remplissage dans la
colonne B.
Puis remplir cette sélection par un mot dans toutes ces cellules.
pas bien grave, j'ai trouvé pour le mot pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en erreur si la feuille existe deja sous ce nom là et dans ce cas la supprimer l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
Pounet95
Bonjour, En VBA s'entend .dans un module standard..
Sub Insère_Feuille() On Error Resume Next ActiveWorkbook.Sheets.Add ActiveSheet.Name = "Feuil1" If Err > 0 Then Application.DisplayAlerts = False Sheets("Feuil1").Delete Application.DisplayAlerts = True ActiveWorkbook.Sheets.Add ActiveSheet.Name = "Feuil1" End If End Sub
PS: Ce code est violent dans la suppression de la feuille existante puisque les messages d'avertissement sont bloqués ( puis débloqués ) avec l'instruction DisplayAlerts De même le nom de feuille à créer/supprimer est à adapter
Bonne journée
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Cyrille" a écrit dans le message de news:
pas bien grave, j'ai trouvé pour le mot pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en erreur si la feuille existe deja sous ce nom là et dans ce cas la supprimer l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
Merci d'avance
Bonjour,
En VBA s'entend .dans un module standard..
Sub Insère_Feuille()
On Error Resume Next
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Feuil1"
If Err > 0 Then
Application.DisplayAlerts = False
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Feuil1"
End If
End Sub
PS: Ce code est violent dans la suppression de la feuille existante puisque
les messages d'avertissement sont bloqués ( puis débloqués ) avec
l'instruction DisplayAlerts
De même le nom de feuille à créer/supprimer est à adapter
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news: C1DB7910-9EB9-446E-B9AD-20B2F50532AF@microsoft.com...
pas bien grave, j'ai trouvé pour le mot
pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en
erreur
si la feuille existe deja sous ce nom là et dans ce cas la supprimer
l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss....
Pas vu qu'il fallait mettre un mot:
'---------
derlg = ActiveSheet.Range("b65536").End(3).Row
Range("A2:a" & derlg) = "Le mot"
'---------
JJ
"Cyrille" <Cyrille@discussions.microsoft.com> a écrit dans le message de
news:3C1ED006-C9A8-4704-8248-C5620894B4F4@microsoft.com...
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se
faisant
à partir de la B
J'aimerais sélectionner une plage de cellules depuis la cellule A2
jusqu'à
la dernière cellule de la colonne A correspondant au remplissage dans
la
colonne B.
Puis remplir cette sélection par un mot dans toutes ces cellules.
Bonjour, En VBA s'entend .dans un module standard..
Sub Insère_Feuille() On Error Resume Next ActiveWorkbook.Sheets.Add ActiveSheet.Name = "Feuil1" If Err > 0 Then Application.DisplayAlerts = False Sheets("Feuil1").Delete Application.DisplayAlerts = True ActiveWorkbook.Sheets.Add ActiveSheet.Name = "Feuil1" End If End Sub
PS: Ce code est violent dans la suppression de la feuille existante puisque les messages d'avertissement sont bloqués ( puis débloqués ) avec l'instruction DisplayAlerts De même le nom de feuille à créer/supprimer est à adapter
Bonne journée
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Cyrille" a écrit dans le message de news:
pas bien grave, j'ai trouvé pour le mot pour le reste ca marche.
Si je peux abuser, comment insérer une feuille mais qui tombe pas en erreur si la feuille existe deja sous ce nom là et dans ce cas la supprimer l'existante pour la remplacer par une nouvelle feuille??
Merci
Ouppsss.... Pas vu qu'il fallait mettre un mot: '--------- derlg = ActiveSheet.Range("b65536").End(3).Row Range("A2:a" & derlg) = "Le mot" '--------- JJ
"Cyrille" a écrit dans le message de news:
Bonjour et merci d'avance
Je possède un tableau dont la colonne A est vide, le remplissage se faisant
à partir de la B J'aimerais sélectionner une plage de cellules depuis la cellule A2 jusqu'à la dernière cellule de la colonne A correspondant au remplissage dans la colonne B. Puis remplir cette sélection par un mot dans toutes ces cellules.
