Je me suis inspiré de la macro de Jluc ( que je remercie encore pour son
aide) pour essayer de réaliser ce que je veux , mais...
aussi je me permets de joindre à ce nouveau post ( avec www.cijoint.com ( si
j'y arrive) un fichier exemple .
Merci pour votre aide
( le but c'est de comprendre le fonctionnement de Offset)
offset sert à désigner une référence décalée dans cet exemple par rapport à la celluledésigné dans la variable: cellule1.offset(0,1) ou ainsi abrègé cellule1.offset(,1) désigne la même ligne colonne suivante.
Offset(décalageligne,décalagecolonne) dans [b2].offset(-1,2) correspond à la ligne précédente et 2de colonne à droite de la cellule b2
Tu comprendras ainsi que dans ce que tu tentais Range(...Worksheet... n'appartient pas à la cellule.
a+
lSteph
"bidou" a écrit dans le message de news: 4380175d$0$29188$
Bonjour Jluc et merci
Effectivement ta macro marche très bien sans l'underscore, mais je voudrais maintenant la modifier de telle manière qu'elle s'étende à une autre feuille du classeur je m'explique:
Je voudrais transformer : If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then
en
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 3).Range(Worksheets("feuil2").Range("c1:c" & Range("c65536").End(xlUp).Row).Value) Then
mais là j'ai une erreur 1004 erreur définiepar l'application ou par l'objet
( le but c'est de comprendre le fonctionnement de Offset)
Merci pour votre aide
"JLuc" a écrit dans le message de news:
*Bonjour bidou*, Ben oui tiens, pourquoi j'ai mis cet underscore ? :-? Je devais pas etre bien reveille ce matin, excuse moi :')
Bonjour Jluc
Merci pour ta réponse mais quand je l'applique il y a un message: "erreur de compilation Else sans If " ?? J'ai raté quelque chose ? merci en tout cas pour ton aide
"JLuc" a écrit dans le message de news:
*Bonjour farreg*, Merci d'utiliser mes macros, cependant il faut quand meme regarder ce que fait le code. Je pense que : Sub Bouton2_QuandClic() Dim cellule1 As Range Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" & Range("a65536").End(xlUp).Row)
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then _ cellule1.Offset(, 2) = "identiques" Else cellule1.Offset(, 2) = "differentes" End If Next cellule1
End Sub
ira mieux que :
Bonsjour,
Je me suis inspiré de la macro de Jluc ( que je remercie encore pour son
aide) pour essayer de réaliser ce que je veux , mais... aussi je me permets de joindre à ce nouveau post ( avec www.cijoint.com (
si j'y arrive) un fichier exemple . Merci pour votre aide
http://cjoint.com/?ltdalrM36v
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Bonjour,
( le but c'est de comprendre le fonctionnement de Offset)
offset sert à désigner une référence décalée
dans cet exemple par rapport à la celluledésigné dans la variable:
cellule1.offset(0,1) ou ainsi abrègé cellule1.offset(,1)
désigne la même ligne colonne suivante.
Offset(décalageligne,décalagecolonne)
dans [b2].offset(-1,2)
correspond à la ligne précédente et 2de colonne à droite de la cellule b2
Tu comprendras ainsi que dans ce que tu tentais Range(...Worksheet...
n'appartient pas à la cellule.
a+
lSteph
"bidou" <fa@wanadoo.fr> a écrit dans le message de news:
4380175d$0$29188$8fcfb975@news.wanadoo.fr...
Bonjour Jluc et merci
Effectivement ta macro marche très bien sans l'underscore, mais je
voudrais
maintenant la modifier de telle manière qu'elle s'étende à une autre
feuille
du classeur je m'explique:
Je voudrais transformer :
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then
en
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(,
3).Range(Worksheets("feuil2").Range("c1:c" &
Range("c65536").End(xlUp).Row).Value) Then
mais là j'ai une erreur 1004 erreur définiepar l'application ou par
l'objet
( le but c'est de comprendre le fonctionnement de Offset)
Merci pour votre aide
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.a0097d5b0926e56e.40692@free.fr.ns...
*Bonjour bidou*,
Ben oui tiens, pourquoi j'ai mis cet underscore ? :-?
Je devais pas etre bien reveille ce matin, excuse moi :')
Bonjour Jluc
Merci pour ta réponse mais quand je l'applique il y a un message:
"erreur de compilation Else sans If " ??
J'ai raté quelque chose ?
merci en tout cas pour ton aide
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.99c57d5bf9af9395.40692@free.fr.ns...
*Bonjour farreg*,
Merci d'utiliser mes macros, cependant il faut quand meme regarder ce
que fait le code.
Je pense que :
Sub Bouton2_QuandClic()
Dim cellule1 As Range
Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" &
Range("a65536").End(xlUp).Row)
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then
_
cellule1.Offset(, 2) = "identiques"
Else
cellule1.Offset(, 2) = "differentes"
End If
Next cellule1
End Sub
ira mieux que :
Bonsjour,
Je me suis inspiré de la macro de Jluc ( que je remercie encore pour
son
aide) pour essayer de réaliser ce que je veux , mais...
aussi je me permets de joindre à ce nouveau post ( avec
www.cijoint.com (
si j'y arrive) un fichier exemple .
Merci pour votre aide
http://cjoint.com/?ltdalrM36v
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
( le but c'est de comprendre le fonctionnement de Offset)
offset sert à désigner une référence décalée dans cet exemple par rapport à la celluledésigné dans la variable: cellule1.offset(0,1) ou ainsi abrègé cellule1.offset(,1) désigne la même ligne colonne suivante.
Offset(décalageligne,décalagecolonne) dans [b2].offset(-1,2) correspond à la ligne précédente et 2de colonne à droite de la cellule b2
Tu comprendras ainsi que dans ce que tu tentais Range(...Worksheet... n'appartient pas à la cellule.
a+
lSteph
"bidou" a écrit dans le message de news: 4380175d$0$29188$
Bonjour Jluc et merci
Effectivement ta macro marche très bien sans l'underscore, mais je voudrais maintenant la modifier de telle manière qu'elle s'étende à une autre feuille du classeur je m'explique:
Je voudrais transformer : If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then
en
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 3).Range(Worksheets("feuil2").Range("c1:c" & Range("c65536").End(xlUp).Row).Value) Then
mais là j'ai une erreur 1004 erreur définiepar l'application ou par l'objet
( le but c'est de comprendre le fonctionnement de Offset)
Merci pour votre aide
"JLuc" a écrit dans le message de news:
*Bonjour bidou*, Ben oui tiens, pourquoi j'ai mis cet underscore ? :-? Je devais pas etre bien reveille ce matin, excuse moi :')
Bonjour Jluc
Merci pour ta réponse mais quand je l'applique il y a un message: "erreur de compilation Else sans If " ?? J'ai raté quelque chose ? merci en tout cas pour ton aide
"JLuc" a écrit dans le message de news:
*Bonjour farreg*, Merci d'utiliser mes macros, cependant il faut quand meme regarder ce que fait le code. Je pense que : Sub Bouton2_QuandClic() Dim cellule1 As Range Dim cellule2 As Range
For Each cellule1 In Worksheets("feuil1").Range("a1:a" & Range("a65536").End(xlUp).Row)
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then _ cellule1.Offset(, 2) = "identiques" Else cellule1.Offset(, 2) = "differentes" End If Next cellule1
End Sub
ira mieux que :
Bonsjour,
Je me suis inspiré de la macro de Jluc ( que je remercie encore pour son
aide) pour essayer de réaliser ce que je veux , mais... aussi je me permets de joindre à ce nouveau post ( avec www.cijoint.com (
si j'y arrive) un fichier exemple . Merci pour votre aide
http://cjoint.com/?ltdalrM36v
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
