Chercher un mot spécifique sur une feuille qui contient des tableau et copier le
Résolu/Fermé
ABHiC
-
Modifié le 30 nov. 2018 à 23:15
ABHiCHAM Messages postés 1 Date d'inscription vendredi 30 novembre 2018 Statut Membre Dernière intervention 1 décembre 2018 - 1 déc. 2018 à 12:13
ABHiCHAM Messages postés 1 Date d'inscription vendredi 30 novembre 2018 Statut Membre Dernière intervention 1 décembre 2018 - 1 déc. 2018 à 12:13
A voir également:
- Chercher un mot spécifique sur une feuille qui contient des tableau et copier le
- Tableau croisé dynamique - Guide
- Piratage facebook changer mot de passe - Guide
- Copier une vidéo youtube - Guide
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
- Si une cellule contient un mot alors ✓ - Forum Excel
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
Modifié le 1 déc. 2018 à 06:46
Modifié le 1 déc. 2018 à 06:46
Bonjour,
Votre code est correct, mais il est fort probable qu'il ne reconnaisse pas la syntaxe du mot "Reçus".
Pour parer à cette éventualité, vous devez mettre en toute première ligne du module 1 "Option compare text"
Cdlt
Votre code est correct, mais il est fort probable qu'il ne reconnaisse pas la syntaxe du mot "Reçus".
Pour parer à cette éventualité, vous devez mettre en toute première ligne du module 1 "Option compare text"
Cdlt
1 déc. 2018 à 12:13
j'ai trouver la solution, fallait juste que je rajoute la feuille concerne :)
If Not aCell Is Nothing Then
Sheets("DATA").Select
aCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("RECU").Select
Range("B1").Select
ActiveSheet.Paste
Else
MsgBox "Contacter"