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

Question

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.

Frenchie83 · Answer

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

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

1 réponse

Votre réponse

Discussions similaires

Newsletters