Remplacement de cellules avec conditions
Résolu/Fermé
viandax
Messages postés
2
Date d'inscription
lundi 7 juillet 2014
Statut
Membre
Dernière intervention
10 juillet 2014
-
7 juil. 2014 à 23:36
viandax Messages postés 2 Date d'inscription lundi 7 juillet 2014 Statut Membre Dernière intervention 10 juillet 2014 - 10 juil. 2014 à 15:52
viandax Messages postés 2 Date d'inscription lundi 7 juillet 2014 Statut Membre Dernière intervention 10 juillet 2014 - 10 juil. 2014 à 15:52
A voir également:
- Remplacement de cellules avec conditions
- Uptobox remplacement - Guide
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Mise en forme conditionnelle excel plusieurs conditions - Guide
- Remplacement disque dur par ssd - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 8/07/2014 à 08:18
Modifié par michel_m le 8/07/2014 à 08:18
Bonjour
plutôt que d'écrire "pour faire simple" sois précis: il aurait été utile de fournir le nom des colonnes réelles et le nom des feuilles concernées surtout si tu ne connais pas VBA
donc j'ai utilisé la feuille1 colonnes ABC
transférée en feuille2 colonnes CDE changement de "f" dans colonne E
à toi d'adapter
Si les macros ne sont pas activées
xL<2007
Michel
plutôt que d'écrire "pour faire simple" sois précis: il aurait été utile de fournir le nom des colonnes réelles et le nom des feuilles concernées surtout si tu ne connais pas VBA
donc j'ai utilisé la feuille1 colonnes ABC
transférée en feuille2 colonnes CDE changement de "f" dans colonne E
à toi d'adapter
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim numero As Integer, Lig As Integer
If Target.Column = 5 And Target <> "f" Then '(5<--> E)
numero = Target.Offset(0, -2)
With Sheets(1)
Lig = .Columns("A").Find(numero, .Range("A30000"), xlValues).Row
.Cells(Lig, "C") = Target
End With
End If
End Sub
comment installer ?-------------------------------------------------------------------------------------------
faire un "copier" cette macro
clic droit sur le nom de l'onglet de la feuille concernée( feuil2) (en bas de l'écran)
visualiser le code
coller
Si les macros ne sont pas activées
xL<2007
cocher menu options-macros-sécurité- niveau moyenXL>=2007
1/ Si l'onglet Développeur n'apparait pas dans le ruban:
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur le menu Standard.
Cocher l'option Afficher l'onglet Développeur dans le ruban.
Cliquer sur le bouton OK pour valider.
2/ activer les macros
Cliquer sur le bouton Office,
puis sur le bouton Options Excel.
Cliquer sur centre de gestion de confidentialité
puis sur param^tre du centre de gestion de la confidentialité
puis cocher le bouton radio activer les macros
Cliquerz sur le bouton OK pour valider.
ton Excel est maintenant définitivement prêt à travailler avec des macros
Michel
10 juil. 2014 à 09:44
10 juil. 2014 à 15:52