michdenis: macro doublons?

Clément Marcotte

28/04/2005 à 18:36

Effacer une ligne complète par macro, c'est une affaire de rien à
trouver avec l'enregistreur de macros.

--
On apprend pas à un vieux singe à faire des grimaces
"rick" a écrit dans le message de
news:

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des
lignes

contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A -
1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

Clément Marcotte

28/04/2005 à 19:07

Au lieu de te faire appeler rick tu devrais te faire appeler TEFLON.

--
On apprend pas à un vieux singe à faire des grimaces
"rick" a écrit dans le message de
news:

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des
lignes

contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A -
1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

MichDenis

28/04/2005 à 19:56

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" a écrit dans le message de news:
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

rick

28/04/2005 à 21:10

au fait comme j'importe des données d'une autre feuille.
je veux que le doublon détecté ecrase la ligne au lieu de supprimer la ligne.

merci d'avance.

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" a écrit dans le message de news:
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

jps

28/04/2005 à 21:27

euh.....michel....supprimer ou delete?
jps

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

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

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

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

MichDenis

28/04/2005 à 21:30

Bonjour Rick,

Ce que tu demandes n'est pas réalisable avec cette macro. Tu devras refaire le code de la macro en grande partie. Il ne s'agit pas
d'une modification mineure. Avant d'aller de l'avant avec ton projet, je te suggère d'essayer de conceptualiser ce que tu veux faire
le plus exactement possible et tenter de conserver à l'esprit le traitement aussi simple que possible ...sinon tu vas devoir y
consacrer un temps fou .... ce n'est pas toujours facile de modifier une procédure et encore moins une façon d'approcher une
problématique.

Rien dans la macro actuelle, t'empêche d'ajouter les lignes de données que tu veux et réexécuter la procédure !

Salutations!

"rick" a écrit dans le message de news:
au fait comme j'importe des données d'une autre feuille.
je veux que le doublon détecté ecrase la ligne au lieu de supprimer la ligne.

merci d'avance.

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" a écrit dans le message de news:
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

Bonjour Rick,

Ce que tu demandes n'est pas réalisable avec cette macro. Tu devras refaire le code de la macro en grande partie. Il ne s'agit pas
d'une modification mineure. Avant d'aller de l'avant avec ton projet, je te suggère d'essayer de conceptualiser ce que tu veux faire
le plus exactement possible et tenter de conserver à l'esprit le traitement aussi simple que possible ...sinon tu vas devoir y
consacrer un temps fou .... ce n'est pas toujours facile de modifier une procédure et encore moins une façon d'approcher une
problématique.

Rien dans la macro actuelle, t'empêche d'ajouter les lignes de données que tu veux et réexécuter la procédure !

Salutations!

"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 0F1038FD-CC23-4936-98AF-D984C2F596D6@microsoft.com...
au fait comme j'importe des données d'une autre feuille.
je veux que le doublon détecté ecrase la ligne au lieu de supprimer la ligne.

merci d'avance.

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 1FBE3C5D-DD70-40BD-9358-F171ACBFDA76@microsoft.com...
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

MichDenis

28/04/2005 à 21:35

Bonjour JPS,

| supprimer ou delete?

OK ... mais pas les deux ! ;-)

Salutations!

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

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

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

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

jps

28/04/2005 à 21:46

ta réponse est....délétère, denis...
jps

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

Bonjour JPS,

| supprimer ou delete?

OK ... mais pas les deux ! ;-)

Salutations!

"MichDenis" a écrit dans le message de
news:
'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

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

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des
lignes

contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

MichDenis

28/04/2005 à 21:56

Ok pour deleterious, noxious ou vilified ! je ne peux pas toujours avoir raison !

Salutations!

"jps" <enlevezd' a écrit dans le message de news: uzEG$
ta réponse est....délétère, denis...
jps

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

Bonjour JPS,

| supprimer ou delete?

OK ... mais pas les deux ! ;-)

Salutations!

"MichDenis" a écrit dans le message de
news:
'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

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

bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je
souhaite

écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des
lignes

contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

rick

28/04/2005 à 22:20

cette ligne modifié:

rg(K + 1).entirerow.clearcontents

cela doit marché avec cette ligne.
qu'est ce que t'en pense?

Bonjour Rick,

Ce que tu demandes n'est pas réalisable avec cette macro. Tu devras refaire le code de la macro en grande partie. Il ne s'agit pas
d'une modification mineure. Avant d'aller de l'avant avec ton projet, je te suggère d'essayer de conceptualiser ce que tu veux faire
le plus exactement possible et tenter de conserver à l'esprit le traitement aussi simple que possible ...sinon tu vas devoir y
consacrer un temps fou .... ce n'est pas toujours facile de modifier une procédure et encore moins une façon d'approcher une
problématique.

Rien dans la macro actuelle, t'empêche d'ajouter les lignes de données que tu veux et réexécuter la procédure !

Salutations!

"rick" a écrit dans le message de news:
au fait comme j'importe des données d'une autre feuille.
je veux que le doublon détecté ecrase la ligne au lieu de supprimer la ligne.

merci d'avance.

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" a écrit dans le message de news:
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

cette ligne modifié:

rg(K + 1).entirerow.clearcontents

cela doit marché avec cette ligne.
qu'est ce que t'en pense?

Bonjour Rick,

Ce que tu demandes n'est pas réalisable avec cette macro. Tu devras refaire le code de la macro en grande partie. Il ne s'agit pas
d'une modification mineure. Avant d'aller de l'avant avec ton projet, je te suggère d'essayer de conceptualiser ce que tu veux faire
le plus exactement possible et tenter de conserver à l'esprit le traitement aussi simple que possible ...sinon tu vas devoir y
consacrer un temps fou .... ce n'est pas toujours facile de modifier une procédure et encore moins une façon d'approcher une
problématique.

Rien dans la macro actuelle, t'empêche d'ajouter les lignes de données que tu veux et réexécuter la procédure !

Salutations!

"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 0F1038FD-CC23-4936-98AF-D984C2F596D6@microsoft.com...
au fait comme j'importe des données d'une autre feuille.
je veux que le doublon détecté ecrase la ligne au lieu de supprimer la ligne.

merci d'avance.

Bonjour Rick,

La commande initiale supprimait totalement et entièrement la dite ligne :
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.Delete

Qu'est-ce qui te dérange dans cette façon de procéder ? Quel résultat concret veux-tu obtenir ?

'-------------
Supprimer = La ligne disparaît totalement
Clear = efface le contenu et format
clearcontents = efface le contenu seulement.
'-------------

Salutations!

"rick" <rick@discussions.microsoft.com> a écrit dans le message de news: 1FBE3C5D-DD70-40BD-9358-F171ACBFDA76@microsoft.com...
bonjour,
par rapport a la macro michdenis, au lieu d'effacer le doublons, je souhaite
écraser la ligne .
donc mettre ce doublon a la place : quand j'importe mes données
If MsgBox("Il y a " & A - 1 & " doublon(s) de la ligne " _
& rg(K + 1).Row & "." & vbCrLf & vbCrLf & _
"Désirez-vous écraser la facilité existante ? ", _
vbCritical + vbYesNo, "Doublons") = vbYes Then
'si l'utilisteur, répond oui, il y aura suppression des lignes
contenant les doublons
Rg(K + 1, 1).Offset(1).Resize(A - 1).EntireRow.ClearContents

A = 1

comment faire?

merci d'avance

Vous avez filtré cet utilisateur ! Consultez son message

michdenis: macro doublons?

10 réponses

Veuillez sélectionner un problème