Bonjour
J'ai 3 feuilles ds mon fichier
A l'aide d'un bouton sur la feuil1 j' efface la cellule selectionner ainsi
que les 13 cellules suivante avec le code suivant:
Dim tbl As Range
Set tbl = Selection
tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count + 13).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
Je voudrai en meme temps juste avant ce code chercher sur les 2 autres
feuilles la valeur de la cellule selectionnée sur la feuille 1.
La selection se fait toujour dans la colonne A:A et la valeur rechercher ds
les 2 autres feuilles se trouve aussi en A:A
Ceci afin de les selectionner d'etendre la selection sur les 13 cases
voisines puis les effacer et les supprimer
La valeur de la case A:A est la date,heure de saisie des 13 cellules
voisines.
Bonjour Je reformule Comment verifier qu'il y a qu'une seule cellule de selectionnée par l'utilisateur dans la feuille 1 Merci Rémi "IMER09" a écrit dans le message de news:
Bonsoir me revoila J'ai resolu mon PB j'ai passé toute mes dates en format texte en concatenant le jour,le mois, l'annee,l'heure etc de l'instant T (ou I) de saisie Du coup tout fonctionne et la question que j'avais posé (<= et >=)il y a quelques jours est par la meme ocase resolu (mais CBX sont en format Texte) Donc je suis heureux ca roule Je remerci tout ceux qui mon mis sur la voix et mon permis une fois de plus de rendre un de mes fichier un peu plus convivial Merci merci merci
Malgres tout une derniere question Comment verifier si la cellule selectionnée dans la feuil1 est unique ?
Rémi
"IMER09" a écrit dans le message de news:
Merci Bcp FFO ca fonctionne
Cependant mon souci:( tjrs ces satannées dates) je ne saisie pas les dates dans les colonnes A de chaque feuille, ds mon fichier d'origine ces colonnes se remplissent automatiquement avec la date de l'instant au moment de la saisie des cellules voisines, je ne sais pas comment les entrer en format texte !! Et je fais par ailleur des tries par rapport a ces dates, donc quel sera l'effet si elle sont au format texte, je n'est pas testé
Merci Rémi "FFO" a écrit dans le message de news:
Rebonjour à toi
Tu n'a pas respecté à la lettre mon code
A la place de Sheets("Feuil2") tu as mis Sheets("Feuil1") A la place de Sheets("Feuil3") tu as mis Sheets("Feuil2")
Si la donnée source est en Feuil1 elle doit être recherchée en Feuil2 et en Feuil3 et non en Feuil1
Tes données de recherche doivent être mis en format texte et sous la forme
26/03/2009 22:31:12
par la saisie et non d'utiliser le format personnaliser pour l'obtenir
Ainsi le code VBA pourra fonctionner
J'ai corrigé quelques éléments de ta macro pour obtenir j'espère ce que tu souhaites
Regardes là et fais des tests
Attention avant de cliquer sur le bouton de sélectionner en Feuil1 colonne A la donnée de recherche
Bonjour
Je reformule
Comment verifier qu'il y a qu'une seule cellule de selectionnée par
l'utilisateur dans la feuille 1
Merci
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: umBnhkmrJHA.4980@TK2MSFTNGP05.phx.gbl...
Bonsoir me revoila
J'ai resolu mon PB j'ai passé toute mes dates en format texte en
concatenant le jour,le mois, l'annee,l'heure etc de l'instant T (ou I) de
saisie
Du coup tout fonctionne et la question que j'avais posé (<= et >=)il y a
quelques jours est par la meme ocase resolu (mais CBX sont en format
Texte)
Donc je suis heureux ca roule
Je remerci tout ceux qui mon mis sur la voix et mon permis une fois de
plus de rendre un de mes fichier un peu plus convivial
Merci merci merci
Malgres tout une derniere question
Comment verifier si la cellule selectionnée dans la feuil1 est unique ?
Rémi
"IMER09" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
news: OJnBHyjrJHA.2368@TK2MSFTNGP06.phx.gbl...
Merci Bcp FFO ca fonctionne
Cependant mon souci:( tjrs ces satannées dates) je ne saisie pas les
dates dans les colonnes A de chaque feuille, ds mon fichier d'origine ces
colonnes se remplissent automatiquement avec la date de l'instant au
moment de la saisie des cellules voisines, je ne sais pas comment les
entrer en format texte !!
Et je fais par ailleur des tries par rapport a ces dates, donc quel sera
l'effet si elle sont au format texte, je n'est pas testé
Merci
Rémi
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4C83E30D-8452-4261-95C5-CF4E31AA5D62@microsoft.com...
Rebonjour à toi
Tu n'a pas respecté à la lettre mon code
A la place de Sheets("Feuil2") tu as mis Sheets("Feuil1")
A la place de Sheets("Feuil3") tu as mis Sheets("Feuil2")
Si la donnée source est en Feuil1 elle doit être recherchée en Feuil2 et
en
Feuil3 et non en Feuil1
Tes données de recherche doivent être mis en format texte et sous la
forme
26/03/2009 22:31:12
par la saisie et non d'utiliser le format personnaliser pour l'obtenir
Ainsi le code VBA pourra fonctionner
J'ai corrigé quelques éléments de ta macro pour obtenir j'espère ce que
tu
souhaites
Regardes là et fais des tests
Attention avant de cliquer sur le bouton de sélectionner en Feuil1
colonne A
la donnée de recherche
Bonjour Je reformule Comment verifier qu'il y a qu'une seule cellule de selectionnée par l'utilisateur dans la feuille 1 Merci Rémi "IMER09" a écrit dans le message de news:
Bonsoir me revoila J'ai resolu mon PB j'ai passé toute mes dates en format texte en concatenant le jour,le mois, l'annee,l'heure etc de l'instant T (ou I) de saisie Du coup tout fonctionne et la question que j'avais posé (<= et >=)il y a quelques jours est par la meme ocase resolu (mais CBX sont en format Texte) Donc je suis heureux ca roule Je remerci tout ceux qui mon mis sur la voix et mon permis une fois de plus de rendre un de mes fichier un peu plus convivial Merci merci merci
Malgres tout une derniere question Comment verifier si la cellule selectionnée dans la feuil1 est unique ?
Rémi
"IMER09" a écrit dans le message de news:
Merci Bcp FFO ca fonctionne
Cependant mon souci:( tjrs ces satannées dates) je ne saisie pas les dates dans les colonnes A de chaque feuille, ds mon fichier d'origine ces colonnes se remplissent automatiquement avec la date de l'instant au moment de la saisie des cellules voisines, je ne sais pas comment les entrer en format texte !! Et je fais par ailleur des tries par rapport a ces dates, donc quel sera l'effet si elle sont au format texte, je n'est pas testé
Merci Rémi "FFO" a écrit dans le message de news:
Rebonjour à toi
Tu n'a pas respecté à la lettre mon code
A la place de Sheets("Feuil2") tu as mis Sheets("Feuil1") A la place de Sheets("Feuil3") tu as mis Sheets("Feuil2")
Si la donnée source est en Feuil1 elle doit être recherchée en Feuil2 et en Feuil3 et non en Feuil1
Tes données de recherche doivent être mis en format texte et sous la forme
26/03/2009 22:31:12
par la saisie et non d'utiliser le format personnaliser pour l'obtenir
Ainsi le code VBA pourra fonctionner
J'ai corrigé quelques éléments de ta macro pour obtenir j'espère ce que tu souhaites
Regardes là et fais des tests
Attention avant de cliquer sur le bouton de sélectionner en Feuil1 colonne A la donnée de recherche
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces quelques lignes :
If Selection.Cells.Count > 1 Then Msgbox("Vous devez sélectionner qu'une cellule") Exit Sub End If
Maintenant je ne pense pas que celà représente une difficulté pour le fonctionnement du code car quelque soit le nombre de cellules sélectionnées il n'y aura de toute façon qu'une cellule active qui représentera l'Activecell du code
A toi de voir
Tiens moi informé !!!!!!
Rebonjour à toi
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces
quelques lignes :
If Selection.Cells.Count > 1 Then
Msgbox("Vous devez sélectionner qu'une cellule")
Exit Sub
End If
Maintenant je ne pense pas que celà représente une difficulté pour le
fonctionnement du code car quelque soit le nombre de cellules sélectionnées
il n'y aura de toute façon qu'une cellule active qui représentera
l'Activecell du code
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces quelques lignes :
If Selection.Cells.Count > 1 Then Msgbox("Vous devez sélectionner qu'une cellule") Exit Sub End If
Maintenant je ne pense pas que celà représente une difficulté pour le fonctionnement du code car quelque soit le nombre de cellules sélectionnées il n'y aura de toute façon qu'une cellule active qui représentera l'Activecell du code
A toi de voir
Tiens moi informé !!!!!!
IMER09
Ok merci
En fait j'efface aussi les 13 cellules voisine de la feuille 1, et je me suis appercu qu'avec le code utilisé si l'utilisateur selectionne 2 cellules (par ex), 1 ligne est effacé sur les feuille 2 et 3 (c'est parfait),mais sur la feuille 1 deux lignes sont effacés(ce qui ne m'arrange pas) Voila le pourquoi de la verification de selection On pouvez peut etre faire plus simple mais mon niveau de connaissance ne le permet pas En tout cas Merci une nouvelle fois Au plaisir de te lire
Rémi "FFO" a écrit dans le message de news:
Rebonjour à toi
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces quelques lignes :
If Selection.Cells.Count > 1 Then Msgbox("Vous devez sélectionner qu'une cellule") Exit Sub End If
Maintenant je ne pense pas que celà représente une difficulté pour le fonctionnement du code car quelque soit le nombre de cellules sélectionnées il n'y aura de toute façon qu'une cellule active qui représentera l'Activecell du code
A toi de voir
Tiens moi informé !!!!!!
Ok merci
En fait j'efface aussi les 13 cellules voisine de la feuille 1, et je me
suis appercu qu'avec le code utilisé si l'utilisateur selectionne 2 cellules
(par ex), 1 ligne est effacé sur les feuille 2 et 3 (c'est parfait),mais sur
la feuille 1 deux lignes sont effacés(ce qui ne m'arrange pas)
Voila le pourquoi de la verification de selection
On pouvez peut etre faire plus simple mais mon niveau de connaissance ne le
permet pas
En tout cas Merci une nouvelle fois
Au plaisir de te lire
Rémi
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
14C1A036-919A-4DDB-98C0-5A0C90ED5CA5@microsoft.com...
Rebonjour à toi
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces
quelques lignes :
If Selection.Cells.Count > 1 Then
Msgbox("Vous devez sélectionner qu'une cellule")
Exit Sub
End If
Maintenant je ne pense pas que celà représente une difficulté pour le
fonctionnement du code car quelque soit le nombre de cellules
sélectionnées
il n'y aura de toute façon qu'une cellule active qui représentera
l'Activecell du code
En fait j'efface aussi les 13 cellules voisine de la feuille 1, et je me suis appercu qu'avec le code utilisé si l'utilisateur selectionne 2 cellules (par ex), 1 ligne est effacé sur les feuille 2 et 3 (c'est parfait),mais sur la feuille 1 deux lignes sont effacés(ce qui ne m'arrange pas) Voila le pourquoi de la verification de selection On pouvez peut etre faire plus simple mais mon niveau de connaissance ne le permet pas En tout cas Merci une nouvelle fois Au plaisir de te lire
Rémi "FFO" a écrit dans le message de news:
Rebonjour à toi
Pour vérifier qu'une seule cellule est sélectionnée tu peux utiliser ces quelques lignes :
If Selection.Cells.Count > 1 Then Msgbox("Vous devez sélectionner qu'une cellule") Exit Sub End If
Maintenant je ne pense pas que celà représente une difficulté pour le fonctionnement du code car quelque soit le nombre de cellules sélectionnées il n'y aura de toute façon qu'une cellule active qui représentera l'Activecell du code