Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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("*"...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.