Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Selection,remplacement &mise en form auto

Selection,remplacement &mise en form auto

5 réponses
Avatar
Bat
bonjour à tout le news groupe!

Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
de main sur une macro !
Sinon tout est illustré sur le fichié !

http://cjoint.com/?iilq6oY7Jh

Le but de la macro est double! :
Etape 1 : Dans un premier temps elle doit sélectionner les cellules
d'intersection entre la dernière ligne et la dernière colonne! Le but est de
mettre en forme les cellules en mettant des bordure sur cette zone là!

Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
elle remplace le contenu par "Vieux".
Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
fonction du nombre de référence donc chaque cas est unique .

Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!

Merci d'avance pour votre aide!!!!
Signaler un problème avec ce contenu

5 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
Yvan
Bonjour Bat

Quelque chose comme çà peut-être: http://cjoint.com/?iil2a4SMWh

@+

Yvan


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

| bonjour à tout le news groupe!
|
| Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
| de main sur une macro !
| Sinon tout est illustré sur le fichié !
|
| http://cjoint.com/?iilq6oY7Jh
|
| Le but de la macro est double! :
| Etape 1 : Dans un premier temps elle doit sélectionner les cellules
| d'intersection entre la dernière ligne et la dernière colonne! Le but est de
| mettre en forme les cellules en mettant des bordure sur cette zone là!
|
| Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
| remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
| alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
| elle remplace le contenu par "Vieux".
| Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
| cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
| fonction du nombre de référence donc chaque cas est unique .
|
| Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!
|
| Merci d'avance pour votre aide!!!!
|
|
|
Avatar
Daniel
Bonjour Yvan !

C'est tout à fait ça!

Par contre pour les conditions de remplacement, peut tu m'expliquer
brièvement comment ça marche! En effet, j'essaye de rajouter des conditions
mais j'ai du mal :
If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre choix"
If LCase(Cells(2, 1)) = "ancien choix" Then Cells(2, 1) = "Vieux"


J'essaye par exemple de remplacer toujours en A2 le contenu de "Nouveauté
du moment" par "New" !! Comment faire ?

En tout cas c'est genial ce que tu as fait!



Bonjour Bat

Quelque chose comme çà peut-être: http://cjoint.com/?iil2a4SMWh

@+

Yvan


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

| bonjour à tout le news groupe!
|
| Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
| de main sur une macro !
| Sinon tout est illustré sur le fichié !
|
| http://cjoint.com/?iilq6oY7Jh
|
| Le but de la macro est double! :
| Etape 1 : Dans un premier temps elle doit sélectionner les cellules
| d'intersection entre la dernière ligne et la dernière colonne! Le but est de
| mettre en forme les cellules en mettant des bordure sur cette zone là!
|
| Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
| remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
| alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
| elle remplace le contenu par "Vieux".
| Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
| cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
| fonction du nombre de référence donc chaque cas est unique .
|
| Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!
|
| Merci d'avance pour votre aide!!!!
|
|
|





Avatar
Daniel
Au fait! je travail avec Bat! D'où ma reprise de sa question!


Bonjour Yvan !

C'est tout à fait ça!

Par contre pour les conditions de remplacement, peut tu m'expliquer
brièvement comment ça marche! En effet, j'essaye de rajouter des conditions
mais j'ai du mal :
If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre choix"
If LCase(Cells(2, 1)) = "ancien choix" Then Cells(2, 1) = "Vieux"


J'essaye par exemple de remplacer toujours en A2 le contenu de "Nouveauté
du moment" par "New" !! Comment faire ?

En tout cas c'est genial ce que tu as fait!



Bonjour Bat

Quelque chose comme çà peut-être: http://cjoint.com/?iil2a4SMWh

@+

Yvan


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

| bonjour à tout le news groupe!
|
| Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
| de main sur une macro !
| Sinon tout est illustré sur le fichié !
|
| http://cjoint.com/?iilq6oY7Jh
|
| Le but de la macro est double! :
| Etape 1 : Dans un premier temps elle doit sélectionner les cellules
| d'intersection entre la dernière ligne et la dernière colonne! Le but est de
| mettre en forme les cellules en mettant des bordure sur cette zone là!
|
| Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
| remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
| alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
| elle remplace le contenu par "Vieux".
| Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
| cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
| fonction du nombre de référence donc chaque cas est unique .
|
| Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!
|
| Merci d'avance pour votre aide!!!!
|
|
|







Avatar
Yvan
Re-Bonjour Daniel!

Merci pour le compliment, mais c'est tout à fait basique. Tu feras vite la même
chose.

Je t'explique rapidement les instructions mais tu devrais essayer d'utiliser l'aide
de VBA. Tu serais plus autonome. Il te suffit de cliquer une fois sur le mot sur
lequel tu veux des infos(par exemple LCase) et de faire F1.


Explication de If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre
choix"

LCase("XxxxXxx") = "xxxxxxx" -> Minuscules de "XxxxXxx" (Majuscules : UCase)
Left(Cells(2,1),5) signifie les 5 caractères de gauche dans Cells(2,1) (La cellule de
la feuille à la 2eme ligne et 1ere colonne, soit A2.

Donc "si les 5 premiers caractères de A2, une fois en minuscules, s'écrivent "autre"
alors on met "autre choix" en A2" (et sinon on oublie)

Pour ce que tu veux faire, tu regarde le contenu de la cellule complète, donc pas
besoin de Left.

if cells(2,1) = "Nouveauté du moment" then cells(2,1) = "New"

et si tu ne veux pas faire la différence entre les minuscules et les majuscules (çà
s'appelle la "casse") alors ->UCase:
if LCase(cells(2,1)) = "nouveauté du moment" then cells(2,1) = "New"


Mais l'aide de Excel et celle de VBA t'en diront beaucoup plus et beaucoup plus vite
(Pense à F1)

Salut et bon courage.

Yvan

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

| Bonjour Yvan !
|
| C'est tout à fait ça!
|
| Par contre pour les conditions de remplacement, peut tu m'expliquer
| brièvement comment ça marche! En effet, j'essaye de rajouter des conditions
| mais j'ai du mal :
| If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre choix"
| If LCase(Cells(2, 1)) = "ancien choix" Then Cells(2, 1) = "Vieux"
|
|
| J'essaye par exemple de remplacer toujours en A2 le contenu de "Nouveauté
| du moment" par "New" !! Comment faire ?
|
| En tout cas c'est genial ce que tu as fait!
|
|
|
| > Bonjour Bat
| >
| > Quelque chose comme çà peut-être: http://cjoint.com/?iil2a4SMWh
| >
| > @+
| >
| > Yvan
| >
| >
| > "Bat" a écrit dans le message de news:
| >
| > | bonjour à tout le news groupe!
| > |
| > | Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
| > | de main sur une macro !
| > | Sinon tout est illustré sur le fichié !
| > |
| > | http://cjoint.com/?iilq6oY7Jh
| > |
| > | Le but de la macro est double! :
| > | Etape 1 : Dans un premier temps elle doit sélectionner les cellules
| > | d'intersection entre la dernière ligne et la dernière colonne! Le but est de
| > | mettre en forme les cellules en mettant des bordure sur cette zone là!
| > |
| > | Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
| > | remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
| > | alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
| > | elle remplace le contenu par "Vieux".
| > | Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
| > | cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
| > | fonction du nombre de référence donc chaque cas est unique .
| > |
| > | Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!
| > |
| > | Merci d'avance pour votre aide!!!!
| > |
| > |
| > |
| >
| >
| >
Avatar
Daniel
Re bonjour Ivan !

Merci poour le petit cours! Pour l'aide, j'aimerai bien mais en fait j'en
suis dépourvu!!!!! Et c clair que ça me manque! Faut que je trouve un moyen
pour la réeinstallé!

A bientôt Yvan et merci!


Re-Bonjour Daniel!

Merci pour le compliment, mais c'est tout à fait basique. Tu feras vite la même
chose.

Je t'explique rapidement les instructions mais tu devrais essayer d'utiliser l'aide
de VBA. Tu serais plus autonome. Il te suffit de cliquer une fois sur le mot sur
lequel tu veux des infos(par exemple LCase) et de faire F1.


Explication de If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre
choix"

LCase("XxxxXxx") = "xxxxxxx" -> Minuscules de "XxxxXxx" (Majuscules : UCase)
Left(Cells(2,1),5) signifie les 5 caractères de gauche dans Cells(2,1) (La cellule de
la feuille à la 2eme ligne et 1ere colonne, soit A2.

Donc "si les 5 premiers caractères de A2, une fois en minuscules, s'écrivent "autre"
alors on met "autre choix" en A2" (et sinon on oublie)

Pour ce que tu veux faire, tu regarde le contenu de la cellule complète, donc pas
besoin de Left.

if cells(2,1) = "Nouveauté du moment" then cells(2,1) = "New"

et si tu ne veux pas faire la différence entre les minuscules et les majuscules (çà
s'appelle la "casse") alors ->UCase:
if LCase(cells(2,1)) = "nouveauté du moment" then cells(2,1) = "New"


Mais l'aide de Excel et celle de VBA t'en diront beaucoup plus et beaucoup plus vite
(Pense à F1)

Salut et bon courage.

Yvan

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

| Bonjour Yvan !
|
| C'est tout à fait ça!
|
| Par contre pour les conditions de remplacement, peut tu m'expliquer
| brièvement comment ça marche! En effet, j'essaye de rajouter des conditions
| mais j'ai du mal :
| If LCase(Left(Cells(2, 1), 5)) = "autre" Then Cells(2, 1) = "autre choix"
| If LCase(Cells(2, 1)) = "ancien choix" Then Cells(2, 1) = "Vieux"
|
|
| J'essaye par exemple de remplacer toujours en A2 le contenu de "Nouveauté
| du moment" par "New" !! Comment faire ?
|
| En tout cas c'est genial ce que tu as fait!
|
|
|
| > Bonjour Bat
| >
| > Quelque chose comme çà peut-être: http://cjoint.com/?iil2a4SMWh
| >
| > @+
| >
| > Yvan
| >
| >
| > "Bat" a écrit dans le message de news:
| >
| > | bonjour à tout le news groupe!
| > |
| > | Pour ma première question sur ce news groupe, j'ai besoin d'un sérieux coup
| > | de main sur une macro !
| > | Sinon tout est illustré sur le fichié !
| > |
| > | http://cjoint.com/?iilq6oY7Jh
| > |
| > | Le but de la macro est double! :
| > | Etape 1 : Dans un premier temps elle doit sélectionner les cellules
| > | d'intersection entre la dernière ligne et la dernière colonne! Le but est de
| > | mettre en forme les cellules en mettant des bordure sur cette zone là!
| > |
| > | Etape 2 : La macro doit remplacer le contenu de la cellule A2. Le
| > | remplacement ce fait de cette manière : Si le permier mot en A2 est "Autre",
| > | alors elle remplace le contenu "autre choix", si le contenu est Ancien choix,
| > | elle remplace le contenu par "Vieux".
| > | Ensuite la macro doit copier cette nouvelle valeur de A2 dans toutes les
| > | cellules de A jusqu'a la dernière ligne du tableau!!! Sachant que ça varie en
| > | fonction du nombre de référence donc chaque cas est unique .
| > |
| > | Voilà! je pense que c'est plus compréhensible en regardand le fichié joint!
| > |
| > | Merci d'avance pour votre aide!!!!
| > |
| > |
| > |
| >
| >
| >