Menu

Chercher un mot spécifique sur une feuille qui contient des tableau et copier le [Résolu]

-
Bonjour,
Prière s'il vous plait de m'aider , j'arrive pas a sectionner la cellule qui fait partir du tableau que je veux copier ci dessous mon code qui fonctionne mais pas trop :)

Sub Actualiser()
    Dim ws As Worksheet
    Dim aCell As Range

    Set ws = ThisWorkbook.Sheets("DATA")

    With ws
        Set aCell = .Columns(1).Find(What:="Reçus", LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                    
           If Not aCell Is Nothing Then
        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 Hicham Abbouz"
        End If
    End With
End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

1 réponse

Messages postés
1846
Date d'inscription
lundi 6 mai 2013
Dernière intervention
9 décembre 2018
0
Merci
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
ABHiCHAM
Messages postés
1
Date d'inscription
vendredi 30 novembre 2018
Dernière intervention
1 décembre 2018
-
Merci infiniment pour ta réponse

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"
Commenter la réponse de Frenchie83