Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne correctement
si elle est
executée de la Feuil1 et me donne un message d'erreur si je l'execute de la
Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement.
Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1
avec condition et
'renvoie le nom de la colonne dans un
autre tableau de la Feuil2
Dim c As Range, cell As Range, TdR As Range
n = 3
Set c = Worksheets("Feuil2").Range("L2")
Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row
Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" &
Fin).End(xlToRight))
For Each cell In TdR
If cell.Value = c.Value Then
n = n + 1
Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value
End If
Next cell
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bonjour Et tu fais tout ça depuis Access ?
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre Sheets(2).Select ou Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+ Arnaud
"Did" a écrit dans le message de news: %
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne correctement si elle est executée de la Feuil1 et me donne un message d'erreur si je l'execute de la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement. Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1 avec condition et 'renvoie le nom de la colonne dans un autre tableau de la Feuil2 Dim c As Range, cell As Range, TdR As Range
n = 3 Set c = Worksheets("Feuil2").Range("L2") Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" & Fin).End(xlToRight))
For Each cell In TdR If cell.Value = c.Value Then n = n + 1 Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value End If Next cell End Sub
Bonjour
Et tu fais tout ça depuis Access ?
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre
Sheets(2).Select
ou
Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+
Arnaud
"Did" <dicanivet@wanadoo.fr> a écrit dans le message de news:
%23FZVS5LWFHA.3076@TK2MSFTNGP12.phx.gbl...
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne
correctement si elle est
executée de la Feuil1 et me donne un message d'erreur si je l'execute de
la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement.
Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1
avec condition et
'renvoie le nom de la colonne dans un
autre tableau de la Feuil2
Dim c As Range, cell As Range, TdR As Range
n = 3
Set c = Worksheets("Feuil2").Range("L2")
Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row
Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" &
Fin).End(xlToRight))
For Each cell In TdR
If cell.Value = c.Value Then
n = n + 1
Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value
End If
Next cell
End Sub
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre Sheets(2).Select ou Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+ Arnaud
"Did" a écrit dans le message de news: %
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne correctement si elle est executée de la Feuil1 et me donne un message d'erreur si je l'execute de la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement. Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1 avec condition et 'renvoie le nom de la colonne dans un autre tableau de la Feuil2 Dim c As Range, cell As Range, TdR As Range
n = 3 Set c = Worksheets("Feuil2").Range("L2") Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" & Fin).End(xlToRight))
For Each cell In TdR If cell.Value = c.Value Then n = n + 1 Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value End If Next cell End Sub
Did
Bonjour
Excusez-moi ce message était destiné à Excel.
merci Arnaud. a+
<Anor> a écrit dans le message de news:
Bonjour Et tu fais tout ça depuis Access ?
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre Sheets(2).Select ou Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+ Arnaud
"Did" a écrit dans le message de news: %
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne correctement si elle est executée de la Feuil1 et me donne un message d'erreur si je l'execute de la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement. Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1 avec condition et 'renvoie le nom de la colonne dans un autre tableau de la Feuil2 Dim c As Range, cell As Range, TdR As Range
n = 3 Set c = Worksheets("Feuil2").Range("L2") Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" & Fin).End(xlToRight))
For Each cell In TdR If cell.Value = c.Value Then n = n + 1 Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value End If Next cell End Sub
Bonjour
Excusez-moi ce message était destiné à Excel.
merci Arnaud.
a+
<Anor> a écrit dans le message de news:
OlrTdJMWFHA.3636@TK2MSFTNGP14.phx.gbl...
Bonjour
Et tu fais tout ça depuis Access ?
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre
Sheets(2).Select
ou
Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+
Arnaud
"Did" <dicanivet@wanadoo.fr> a écrit dans le message de news:
%23FZVS5LWFHA.3076@TK2MSFTNGP12.phx.gbl...
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne
correctement si elle est
executée de la Feuil1 et me donne un message d'erreur si je l'execute de
la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement.
Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1
avec condition et
'renvoie le nom de la colonne dans
un autre tableau de la Feuil2
Dim c As Range, cell As Range, TdR As Range
n = 3
Set c = Worksheets("Feuil2").Range("L2")
Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row
Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" &
Fin).End(xlToRight))
For Each cell In TdR
If cell.Value = c.Value Then
n = n + 1
Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value
End If
Next cell
End Sub
Sinon, depuis excel, essaye d'incorporer quelque part une ligne du genre Sheets(2).Select ou Worksheets("Feuil2").Select
(me souviens plus trop :-)
A+ Arnaud
"Did" a écrit dans le message de news: %
Bonsoir à Tous
Quelqu'un peut-il m'expliquer, pourquoi cette macro fonctionne correctement si elle est executée de la Feuil1 et me donne un message d'erreur si je l'execute de la Feuil2.
Je souhaiterai l'executer de la Feuil2.
Merci de votre aide et de vos explications
Cordialement. Didier.
Sub RechercheValeur() 'Recherche une valeur dans un tableau de la Feuil1 avec condition et 'renvoie le nom de la colonne dans un autre tableau de la Feuil2 Dim c As Range, cell As Range, TdR As Range
n = 3 Set c = Worksheets("Feuil2").Range("L2") Worksheets("Feuil2").Range("L4:L23").ClearContents
Fin = Worksheets("Feuil1").Range("A1").End(xlDown).Row Set TdR = Worksheets("Feuil1").Range("B" & Fin, Range("B" & Fin).End(xlToRight))
For Each cell In TdR If cell.Value = c.Value Then n = n + 1 Worksheets("Feuil2").Cells(n, 12).Value = cell.End(xlUp).Value End If Next cell End Sub
