Contenu récent par BEOS

Petite modif su fichier. Les mails n'étaient pas en colonne H dans la feuille "Source" du fichier précédent

@soan ci-joint un fichier exemple. A noter que les Feuil1,Feuil2, Feuil3 portent en réalité d'autres noms

Sub test() Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet With Sheets("Récap") Set c = .Cells.Find("*", LookIn:=xlValues) If Not c Is Nothing Then dlg = c.Row If dlg = 1 Then dlg = 2 With Sheets("Source") For j = .Range("H" &...

J'ai une macro qui fonctionne mais qui ne fait absolument rien @soan @pierrejean Je vais vous expliquer ce que je voudrais traiter et ensuite coller la macro Les feuilles contenant les données à rechercher sont "Feuil1", "Feuil2" et "Feuil3". La feuille "Source" est celle contenant les...

@pierrejean @soan On aurait donc ceci comme code ? Parce que le déboggage s'arrête à la ligne set c et j'ai une erreur d'éxécution 9 m'indiquant que l'indice n'appartient pas à la selection à partir de la ligne en gras alors que la feuille se nomme bien "Récap" Sub test() Dim j As Integer, i...

Bonjour et merci pour votre retour. Il m'affiche erreur d'éxécution 91: ariable objet ou variable de bloc with non définie. L'erreur est entre ces deux lignes: dlg = .Cells.Find("*", LookIn:=xlValues).Row + 1 If dlg = 1 Then dlg = 2

Bonjour. Je vous affiche mon code. En l'éxécutant j'ai une erreur compilation: qualificateur incorrect. Pourriez-vous m'aider s'il vous plait? Merci Sub test() Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet With Sheets("Récap") dlg = .Cells.Find("*"...