Ci-bas, j'ai une petite macro me permettant d'=E9liminer=20
les doublons dans la colonne D. Cependant, j'aimerais=20
aussi =E9liminer la cellule =E0 c=F4t=E9, i.e. celle de la=20
colonne E. =20
J'ai essay=E9 avec un Array genre
Dim Arr()
Array =3D ("D", "E")
Mais je ne suis pas parvenu =E0 inscrire ce qu'il fallait=20
dans le code en bas pour que =E7a fonctionne.... Est-ce que=20
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate()=20
With Sheets("ProjetTotal")=20
Dim Lastrow As Integer, i As Integer=20
Lastrow =3D Range("D65000").End(xlUp).Row=20
For i =3D Lastrow To 2 Step -1=20
If Cells(i, 4).Value =3D Cells(i - 1, 4).Value=20
Then Cells(i, 4).Delete=20
Next=20
End With=20
End Sub=20
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
isabelle
bonjour Denys,
remplace Then Cells(i, 4).Delete par Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
bonjour Denys,
remplace
Then Cells(i, 4).Delete
par
Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer
les doublons dans la colonne D. Cependant, j'aimerais
aussi éliminer la cellule à côté, i.e. celle de la
colonne E.
J'ai essayé avec un Array genre
Dim Arr()
Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait
dans le code en bas pour que ça fonctionne.... Est-ce que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value
Then Cells(i, 4).Delete
Next
End With
End Sub
remplace Then Cells(i, 4).Delete par Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
michdenis
Bonjour Denys,
Essaie ceci
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Resize(, 2).Delete end if Next End With End Sub
Salutations!
"Denys" a écrit dans le message de news:093101c4bb65$feeb9700$ Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
Bonjour Denys,
Essaie ceci
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value Then
Cells(i, 4).Resize(, 2).Delete
end if
Next
End With
End Sub
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:093101c4bb65$feeb9700$a401280a@phx.gbl...
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer
les doublons dans la colonne D. Cependant, j'aimerais
aussi éliminer la cellule à côté, i.e. celle de la
colonne E.
J'ai essayé avec un Array genre
Dim Arr()
Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait
dans le code en bas pour que ça fonctionne.... Est-ce que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value
Then Cells(i, 4).Delete
Next
End With
End Sub
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Resize(, 2).Delete end if Next End With End Sub
Salutations!
"Denys" a écrit dans le message de news:093101c4bb65$feeb9700$ Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
Denys
Bonjour Isabelle,
Merci beaucoup... J'avais essyé quelque chose du genre, mais bien entendu, j'avais oublié les parenthèses !!! Une chance que tu passais par là !!!
Encore merci et bonne journée...
Denys
-----Message d'origine----- bonjour Denys,
remplace Then Cells(i, 4).Delete par Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub .
Bonjour Isabelle,
Merci beaucoup... J'avais essyé quelque chose du genre,
mais bien entendu, j'avais oublié les parenthèses !!!
Une chance que tu passais par là !!!
Encore merci et bonne journée...
Denys
-----Message d'origine-----
bonjour Denys,
remplace
Then Cells(i, 4).Delete
par
Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer
les doublons dans la colonne D. Cependant, j'aimerais
aussi éliminer la cellule à côté, i.e. celle de la
colonne E.
J'ai essayé avec un Array genre
Dim Arr()
Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait
dans le code en bas pour que ça fonctionne.... Est-ce
que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value
Then Cells(i, 4).Delete
Next
End With
End Sub
.
Merci beaucoup... J'avais essyé quelque chose du genre, mais bien entendu, j'avais oublié les parenthèses !!! Une chance que tu passais par là !!!
Encore merci et bonne journée...
Denys
-----Message d'origine----- bonjour Denys,
remplace Then Cells(i, 4).Delete par Then Range(Cells(i, 4), Cells(i, 5)).Delete
isabelle
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub .
Denys
Bonjour Denis,
Excellente idée, je n'avais pas pensé à Resize...
Merci encore et bonne journée
Denys
-----Message d'origine----- Bonjour Denys,
Essaie ceci
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then
Cells(i, 4).Resize(, 2).Delete end if Next End With End Sub
Salutations!
"Denys" a écrit dans le message de news:093101c4bb65$feeb9700
$
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
.
Bonjour Denis,
Excellente idée, je n'avais pas pensé à Resize...
Merci encore et bonne journée
Denys
-----Message d'origine-----
Bonjour Denys,
Essaie ceci
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value
Then
Cells(i, 4).Resize(, 2).Delete
end if
Next
End With
End Sub
Salutations!
"Denys" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:093101c4bb65$feeb9700
$a401280a@phx.gbl...
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer
les doublons dans la colonne D. Cependant, j'aimerais
aussi éliminer la cellule à côté, i.e. celle de la
colonne E.
J'ai essayé avec un Array genre
Dim Arr()
Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait
dans le code en bas pour que ça fonctionne.... Est-ce que
quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate()
With Sheets("ProjetTotal")
Dim Lastrow As Integer, i As Integer
Lastrow = Range("D65000").End(xlUp).Row
For i = Lastrow To 2 Step -1
If Cells(i, 4).Value = Cells(i - 1, 4).Value
Then Cells(i, 4).Delete
Next
End With
End Sub
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then
Cells(i, 4).Resize(, 2).Delete end if Next End With End Sub
Salutations!
"Denys" a écrit dans le message de news:093101c4bb65$feeb9700
$
Bonjour à tous,
Ci-bas, j'ai une petite macro me permettant d'éliminer les doublons dans la colonne D. Cependant, j'aimerais aussi éliminer la cellule à côté, i.e. celle de la colonne E.
J'ai essayé avec un Array genre
Dim Arr() Array = ("D", "E")
Mais je ne suis pas parvenu à inscrire ce qu'il fallait dans le code en bas pour que ça fonctionne.... Est-ce que quelqu'un d'entre vous saurait?
Merci beaucoup
Denys
Sub Eliminate() With Sheets("ProjetTotal") Dim Lastrow As Integer, i As Integer Lastrow = Range("D65000").End(xlUp).Row For i = Lastrow To 2 Step -1 If Cells(i, 4).Value = Cells(i - 1, 4).Value Then Cells(i, 4).Delete Next End With End Sub
