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
Daniel
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : " & Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : " & Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
merci d'avance.
Bonjour.
Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test()
Dim CombiBH As String, CombiDI As String
Range("B1:B200").Select
For Each cell In Selection
If cell.Value = cell.Offset(0, 6).Value Then
CombiBH = CombiBH & cell.Row & ", "
End If
If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then
CombiDI = CombiDI & cell.Row & ", "
End If
Next cell
If CombiBH <> "" Then
MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2)
End If
If CombiDI <> "" Then
MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2)
End If
End Sub
Cordialement.
Daniel
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news:
F91EACB1-B63D-4ECA-9809-8EFF293D556F@microsoft.com...
Bonjour,
Quand j'importe mes cellules de A10 à Z200
sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : " & Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : " & Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
merci d'avance.
rick
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : " & Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : " & Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
merci d'avance.
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour.
Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test()
Dim CombiBH As String, CombiDI As String
Range("B1:B200").Select
For Each cell In Selection
If cell.Value = cell.Offset(0, 6).Value Then
CombiBH = CombiBH & cell.Row & ", "
End If
If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then
CombiDI = CombiDI & cell.Row & ", "
End If
Next cell
If CombiBH <> "" Then
MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2)
End If
If CombiDI <> "" Then
MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2)
End If
End Sub
Cordialement.
Daniel
"rick" <rick@discussions.microsoft.com> a écrit dans le message de news:
F91EACB1-B63D-4ECA-9809-8EFF293D556F@microsoft.com...
Bonjour,
Quand j'importe mes cellules de A10 à Z200
sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : " & Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : " & Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
-- On apprend pas à un vieux singe à faire des grimaces "rick" a écrit dans le message de news:
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
--
On apprend pas à un vieux singe à faire des grimaces
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:4A4413DF-11EB-4668-B236-2DDCB6B0A208@microsoft.com...
c'est une combinaison suivant (B H D I) et pas sur B H et DI
ensuite.
merci
Bonjour.
Essaie le code suivant (il ne comprend pas l'opération
copier/coller)
Sub Test()
Dim CombiBH As String, CombiDI As String
Range("B1:B200").Select
For Each cell In Selection
If cell.Value = cell.Offset(0, 6).Value Then
CombiBH = CombiBH & cell.Row & ", "
End If
If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then
CombiDI = CombiDI & cell.Row & ", "
End If
Next cell
If CombiBH <> "" Then
MsgBox "combinaisons identiques dans les colonnes B et H,
lignes : "
& Left(CombiBH, Len(CombiBH) - 2)
End If
If CombiDI <> "" Then
MsgBox "combinaisons identiques dans les colonnes D et I,
lignes : "
& Left(CombiDI, Len(CombiDI) - 2)
End If
End Sub
Cordialement.
Daniel
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:
-- On apprend pas à un vieux singe à faire des grimaces "rick" a écrit dans le message de news:
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
merci d'avance.
Clément Marcotte
Sub YSeraitTempsQuiApprenneASeDébrouiller() Dim i As Integer, j As Integer, texte1, texte2 For i = 10 To 200 texte1 = Cells(i, 2).Value & Cells(i, 4).Value _ & Cells(i, 8).Value & Cells(i, 9).Value For j = i + 1 To 200 texte2 = Cells(j, 2).Value & Cells(j, 4).Value _ & Cells(j, 8).Value & Cells(j, 9).Value If texte1 = texte2 Then MsgBox "Comparez la ligne " & i & " et la ligne " & j End If MsgBox "Je ne veux pas de chiâlage sur le temps que cela prend. Il faut ce qu'il faut" End Sub
-- On apprend pas à un vieux singe à faire des grimaces "rick" a écrit dans le message de news:
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.
merci d'avance.
Sub YSeraitTempsQuiApprenneASeDébrouiller()
Dim i As Integer, j As Integer, texte1, texte2
For i = 10 To 200
texte1 = Cells(i, 2).Value & Cells(i, 4).Value _
& Cells(i, 8).Value & Cells(i, 9).Value
For j = i + 1 To 200
texte2 = Cells(j, 2).Value & Cells(j, 4).Value _
& Cells(j, 8).Value & Cells(j, 9).Value
If texte1 = texte2 Then
MsgBox "Comparez la ligne " & i & " et la ligne " & j
End If
MsgBox "Je ne veux pas de chiâlage sur le temps que cela prend. Il
faut ce qu'il faut"
End Sub
--
On apprend pas à un vieux singe à faire des grimaces
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:4A4413DF-11EB-4668-B236-2DDCB6B0A208@microsoft.com...
c'est une combinaison suivant (B H D I) et pas sur B H et DI
ensuite.
merci
Bonjour.
Essaie le code suivant (il ne comprend pas l'opération
copier/coller)
Sub Test()
Dim CombiBH As String, CombiDI As String
Range("B1:B200").Select
For Each cell In Selection
If cell.Value = cell.Offset(0, 6).Value Then
CombiBH = CombiBH & cell.Row & ", "
End If
If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then
CombiDI = CombiDI & cell.Row & ", "
End If
Next cell
If CombiBH <> "" Then
MsgBox "combinaisons identiques dans les colonnes B et H,
lignes : "
& Left(CombiBH, Len(CombiBH) - 2)
End If
If CombiDI <> "" Then
MsgBox "combinaisons identiques dans les colonnes D et I,
lignes : "
& Left(CombiDI, Len(CombiDI) - 2)
End If
End Sub
Cordialement.
Daniel
"rick" <rick@discussions.microsoft.com> a écrit dans le message de
news:
Sub YSeraitTempsQuiApprenneASeDébrouiller() Dim i As Integer, j As Integer, texte1, texte2 For i = 10 To 200 texte1 = Cells(i, 2).Value & Cells(i, 4).Value _ & Cells(i, 8).Value & Cells(i, 9).Value For j = i + 1 To 200 texte2 = Cells(j, 2).Value & Cells(j, 4).Value _ & Cells(j, 8).Value & Cells(j, 9).Value If texte1 = texte2 Then MsgBox "Comparez la ligne " & i & " et la ligne " & j End If MsgBox "Je ne veux pas de chiâlage sur le temps que cela prend. Il faut ce qu'il faut" End Sub
-- On apprend pas à un vieux singe à faire des grimaces "rick" a écrit dans le message de news:
c'est une combinaison suivant (B H D I) et pas sur B H et DI ensuite.
merci
Bonjour. Essaie le code suivant (il ne comprend pas l'opération copier/coller)
Sub Test() Dim CombiBH As String, CombiDI As String Range("B1:B200").Select For Each cell In Selection If cell.Value = cell.Offset(0, 6).Value Then CombiBH = CombiBH & cell.Row & ", " End If If cell.Offset(0, 2).Value = cell.Offset(0, 7).Value Then CombiDI = CombiDI & cell.Row & ", " End If Next cell If CombiBH <> "" Then MsgBox "combinaisons identiques dans les colonnes B et H, lignes : "
& Left(CombiBH, Len(CombiBH) - 2) End If If CombiDI <> "" Then MsgBox "combinaisons identiques dans les colonnes D et I, lignes : "
& Left(CombiDI, Len(CombiDI) - 2) End If End Sub
Cordialement. Daniel "rick" a écrit dans le message de news:
Bonjour,
Quand j'importe mes cellules de A10 à Z200 sur un classeur sur les cellules de A10 à Z200.
avant de coller toutes les valeurs, je souhaites savoir si il est possible
de tester si il y a des combinaisons identiques suivant 4 critères.
les colonnes sont B et H et D et I.
si des combinaisons identiques, en avertir l'utilisateur.