Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel DIFFICULTES

DIFFICULTES

11 réponses
Avatar
farreg
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
JLuc
*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

Avatar
JLuc
*Bonjour farreg*,
donc, ira mieux 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)
For Each cellule2 In Worksheets("feuil1").Range("b1:b" &
Range("b65536").End(xlUp).Row)

If Int(Left(cellule1.Value, 4)) = cellule2.Value Then
cellule1.Offset(, 2) = "identique"
' else (?)
End If
Next cellule2
Next cellule1

End Sub

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

Avatar
LSteph
Bonjour,
ou plus simplement:
'***
Sub Bouton2_QuandClic()
Dim c As Range
For Each c In _
Worksheets("feuil1").Range("a2:a" & _
Range("a65536").End(xlUp).Row)
If Left(c, 4) = CStr(c.Offset(0, 1)) Then
c.Offset(, 2) = "identique"
Else
c.Offset(, 2) = "différent"
End If
Next c
End Sub
'***
'lSteph

"farreg" a écrit dans le message de news:
437e8766$0$29204$
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







Avatar
bidou
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





Avatar
bidou
Bonjour LSteph et Bravo !

C'est exactement ce que je voulais
Mais peut-tu m'expliquer pourquoi Cstr() ??
et que signifie '*** ?? C'est une nouvelle espèce de poissons ?
Excuses si ces questions te paraissent bêtes c'est peut-être du à mon grand
âge...

"LSteph" a écrit dans le message de news:

Bonjour,
ou plus simplement:
'***
Sub Bouton2_QuandClic()
Dim c As Range
For Each c In _
Worksheets("feuil1").Range("a2:a" & _
Range("a65536").End(xlUp).Row)
If Left(c, 4) = CStr(c.Offset(0, 1)) Then
c.Offset(, 2) = "identique"
Else
c.Offset(, 2) = "différent"
End If
Next c
End Sub
'***
'lSteph

"farreg" a écrit dans le message de news:
437e8766$0$29204$
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











Avatar
LSteph
.....
"Bête" serait de ne pas s'en poser

Cstr(expression) convertit en String soit en chaine de caractères.

;-) Bonne pêche!



"bidou" a écrit dans le message de news:
437eea87$0$18337$

Bonjour LSteph et Bravo !

C'est exactement ce que je voulais
Mais peut-tu m'expliquer pourquoi Cstr() ??
et que signifie '*** ?? C'est une nouvelle espèce de poissons ?
Excuses si ces questions te paraissent bêtes c'est peut-être du à mon
grand
âge...

"LSteph" a écrit dans le message de news:

Bonjour,
ou plus simplement:
'***
Sub Bouton2_QuandClic()
Dim c As Range
For Each c In _
Worksheets("feuil1").Range("a2:a" & _
Range("a65536").End(xlUp).Row)
If Left(c, 4) = CStr(c.Offset(0, 1)) Then
c.Offset(, 2) = "identique"
Else
c.Offset(, 2) = "différent"
End If
Next c
End Sub
'***
'lSteph

"farreg" a écrit dans le message de news:
437e8766$0$29204$
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















Avatar
anonymousA
bonjour,

il suffit d'oter le caractère _ (underscore) à la fin de l'instruction
If Val(Left(cellule1.Value, 4)) = cellule1.Offset(, 1).Value Then _


A+

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










Avatar
JLuc
*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



Avatar
bidou
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







Avatar
LSteph
'***
...je l'utilise pour délimiter
un bout de code dans un message ou autre et le copier
sans avoir à relire chaque ligne pour savoir si c'est du code
ou le reste du blabla.

"bidou" a écrit dans le message de news:
437eea87$0$18337$

Bonjour LSteph et Bravo !

C'est exactement ce que je voulais
Mais peut-tu m'expliquer pourquoi Cstr() ??
et que signifie '*** ?? C'est une nouvelle espèce de poissons ?
Excuses si ces questions te paraissent bêtes c'est peut-être du à mon
grand
âge...

"LSteph" a écrit dans le message de news:

Bonjour,
ou plus simplement:
'***
Sub Bouton2_QuandClic()
Dim c As Range
For Each c In _
Worksheets("feuil1").Range("a2:a" & _
Range("a65536").End(xlUp).Row)
If Left(c, 4) = CStr(c.Offset(0, 1)) Then
c.Offset(, 2) = "identique"
Else
c.Offset(, 2) = "différent"
End If
Next c
End Sub
'***
'lSteph

"farreg" a écrit dans le message de news:
437e8766$0$29204$
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















1 2