Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
JulieRebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
Julie
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
JulieRebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut,
Une autre solution (elle doit pouvoir être grandement simplifié et
optimisée, mais je l'ai fait rapidement et l'idée est la), mais qui a
l'avantage d'être plutot rapide :
prérequis :
trois feuilles :
- data > dans laquelle il y a tes données
- error > qui va contenir une colonne avec les nom en erreur, et une
autre avec les bureaux en erreur
- ok > qui va contenir la liste sans erreur
Sub verification()
Dim k As Long, x As Long, l As Long, ko As Integer, y As Long, f As
Long
Dim data As Object
Dim unique_nom As New Collection
Dim err_nom As New Collection
Dim err_bureau_temp()
Dim err_nom_temp()
Dim unique_bureau As New Collection
Dim err_bureau As New Collection
Dim final_ok()
Dim donnees
Set data = Sheets("data")
donnees = data.Range(data.Cells(1, 1), data.Cells(data.Cells(65536,
1).End(xlUp).Row, 2))
For x = 1 To UBound(donnees, 1)
'Verif Nom
On Error Resume Next
unique_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err = 0 Then
k = k + 1
ReDim Preserve err_nom_temp(1 To k)
err_nom_temp(k) = donnees(x, 1)
End If
End If
'Verif bureau
On Error Resume Next
unique_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err = 0 Then
l = l + 1
ReDim Preserve err_bureau_temp(1 To l)
err_bureau_temp(l) = donnees(x, 2)
End If
End If
Next
With Sheets("error")
.Range(.Cells(1, 1), .Cells(UBound(err_nom_temp), 1)) > Application.Transpose(err_nom_temp)
.Range(.Cells(1, 2), .Cells(UBound(err_bureau_temp), 2)) > Application.Transpose(err_bureau_temp)
End With
For x = 1 To UBound(donnees)
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then ko = ko + 1
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then ko = ko + 1
If ko = 0 Then
f = f + 1
ReDim Preserve final_ok(1 To 2, 1 To f)
final_ok(1, f) = donnees(x, 1)
final_ok(2, f) = donnees(x, 2)
End If
ko = 0
Next
With Sheets("ok")
.Range(.Cells(1, 1), .Cells(UBound(final_ok, 2), 2)) > Application.Transpose(final_ok)
End With
On 31 mar, 18:12, JulieH wrote:Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
JulieRebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut,
Une autre solution (elle doit pouvoir être grandement simplifié et
optimisée, mais je l'ai fait rapidement et l'idée est la), mais qui a
l'avantage d'être plutot rapide :
prérequis :
trois feuilles :
- data > dans laquelle il y a tes données
- error > qui va contenir une colonne avec les nom en erreur, et une
autre avec les bureaux en erreur
- ok > qui va contenir la liste sans erreur
Sub verification()
Dim k As Long, x As Long, l As Long, ko As Integer, y As Long, f As
Long
Dim data As Object
Dim unique_nom As New Collection
Dim err_nom As New Collection
Dim err_bureau_temp()
Dim err_nom_temp()
Dim unique_bureau As New Collection
Dim err_bureau As New Collection
Dim final_ok()
Dim donnees
Set data = Sheets("data")
donnees = data.Range(data.Cells(1, 1), data.Cells(data.Cells(65536,
1).End(xlUp).Row, 2))
For x = 1 To UBound(donnees, 1)
'Verif Nom
On Error Resume Next
unique_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err = 0 Then
k = k + 1
ReDim Preserve err_nom_temp(1 To k)
err_nom_temp(k) = donnees(x, 1)
End If
End If
'Verif bureau
On Error Resume Next
unique_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err = 0 Then
l = l + 1
ReDim Preserve err_bureau_temp(1 To l)
err_bureau_temp(l) = donnees(x, 2)
End If
End If
Next
With Sheets("error")
.Range(.Cells(1, 1), .Cells(UBound(err_nom_temp), 1)) > Application.Transpose(err_nom_temp)
.Range(.Cells(1, 2), .Cells(UBound(err_bureau_temp), 2)) > Application.Transpose(err_bureau_temp)
End With
For x = 1 To UBound(donnees)
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then ko = ko + 1
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then ko = ko + 1
If ko = 0 Then
f = f + 1
ReDim Preserve final_ok(1 To 2, 1 To f)
final_ok(1, f) = donnees(x, 1)
final_ok(2, f) = donnees(x, 2)
End If
ko = 0
Next
With Sheets("ok")
.Range(.Cells(1, 1), .Cells(UBound(final_ok, 2), 2)) > Application.Transpose(final_ok)
End With
On 31 mar, 18:12, JulieH <jul...@discussions.microsoft.com> wrote:
Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
Julie
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut,
Une autre solution (elle doit pouvoir être grandement simplifié et
optimisée, mais je l'ai fait rapidement et l'idée est la), mais qui a
l'avantage d'être plutot rapide :
prérequis :
trois feuilles :
- data > dans laquelle il y a tes données
- error > qui va contenir une colonne avec les nom en erreur, et une
autre avec les bureaux en erreur
- ok > qui va contenir la liste sans erreur
Sub verification()
Dim k As Long, x As Long, l As Long, ko As Integer, y As Long, f As
Long
Dim data As Object
Dim unique_nom As New Collection
Dim err_nom As New Collection
Dim err_bureau_temp()
Dim err_nom_temp()
Dim unique_bureau As New Collection
Dim err_bureau As New Collection
Dim final_ok()
Dim donnees
Set data = Sheets("data")
donnees = data.Range(data.Cells(1, 1), data.Cells(data.Cells(65536,
1).End(xlUp).Row, 2))
For x = 1 To UBound(donnees, 1)
'Verif Nom
On Error Resume Next
unique_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err = 0 Then
k = k + 1
ReDim Preserve err_nom_temp(1 To k)
err_nom_temp(k) = donnees(x, 1)
End If
End If
'Verif bureau
On Error Resume Next
unique_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err = 0 Then
l = l + 1
ReDim Preserve err_bureau_temp(1 To l)
err_bureau_temp(l) = donnees(x, 2)
End If
End If
Next
With Sheets("error")
.Range(.Cells(1, 1), .Cells(UBound(err_nom_temp), 1)) > Application.Transpose(err_nom_temp)
.Range(.Cells(1, 2), .Cells(UBound(err_bureau_temp), 2)) > Application.Transpose(err_bureau_temp)
End With
For x = 1 To UBound(donnees)
On Error Resume Next
err_bureau.Add donnees(x, 2), CStr(donnees(x, 2))
If Err <> 0 Then ko = ko + 1
On Error Resume Next
err_nom.Add donnees(x, 1), CStr(donnees(x, 1))
If Err <> 0 Then ko = ko + 1
If ko = 0 Then
f = f + 1
ReDim Preserve final_ok(1 To 2, 1 To f)
final_ok(1, f) = donnees(x, 1)
final_ok(2, f) = donnees(x, 2)
End If
ko = 0
Next
With Sheets("ok")
.Range(.Cells(1, 1), .Cells(UBound(final_ok, 2), 2)) > Application.Transpose(final_ok)
End With
On 31 mar, 18:12, JulieH wrote:Je viens de voir ta réponse sur mon nouveau fil et je te remercie à
nouveau. J'ai essayé rapidement sans tout vérifier. Je vois un petit
problème car il repère bien les doubles sur les noms (colonne A) mais il
en repère trop sur la colonne B. Voir Cjoint :
http://cjoint.com/?dFsli1oDHs
Par ailleurs, comment faire pour récupérer ceux qui sont colorés en
rouge pour la suite des opérations : supprimer et copier dans une autre
feuille.
JulieRebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Rebonjours Julie
Pour cette nouvelle demande je te propose de ramener toutes les
données (les données nouvelles avec les actuelles) dans une feuille
(Feuil1) colonne A et B et d'analyser les doublons avec ce code
For Each c In Worksheets("Feuil1").Range("A2", "A" &
Range("A65535").End(xlUp).Row)
On Error Resume Next
Range(c, "A" & Range("A65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n1 = n1 + 1
c.Interior.ColorIndex = 3
End If
Next
For Each c In Worksheets("Feuil1").Range("B2", "B" &
Range("B65535").End(xlUp).Row)
On Error Resume Next
Range(c, "B" & Range("B65535").End(xlUp).Row).Find(What:=c,
After:=c, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse).Activate
If ActiveCell.Address <> c.Address Then
n2 = n2 + 1
c.Interior.ColorIndex = 3
End If
Next
If n1 <> "" Then
MsgBox (n1 & " doublon(s) pour les Noms")
End If
If n2 <> "" Then
MsgBox (n2 & " doublon(s) pour les numéros")
End If
Les doublons pour les noms ainsique pour les numéros sont colorés en
rouge et un message pour chacun donne leur nombre
A toi ensuite de les traiter
Qu'en penses tu ????
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour . les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un n uméro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les donn ées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour . les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un n uméro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les donn ées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour . les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un n uméro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les donn ées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH <jul...@discussions.microsoft.com> wrote:
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH <jul...@discussions.microsoft.com> wrote:
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dFwyrdXlb2
Sub essai()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "temp"
On Error GoTo 0
f = 1
Set champ1 = Sheets(f).Range("A1:A" & Sheets(f).
[A65000].End(xlUp).Row)
Set champ2 = Sheets(f).Range("B1:B" & Sheets(f).
[B65000].End(xlUp).Row)
For i = champ1.Rows.Count To 2 Step -1
If Application.CountIf(champ1, Sheets(f).Cells(i, 1)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
For i = champ2.Rows.Count To 2 Step -1
If Application.CountIf(champ2, Sheets(f).Cells(i, 2)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
End Sub
JB
On 31 mar, 21:20, JulieH wrote:Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cependant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières où il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dFwyrdXlb2
Sub essai()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "temp"
On Error GoTo 0
f = 1
Set champ1 = Sheets(f).Range("A1:A" & Sheets(f).
[A65000].End(xlUp).Row)
Set champ2 = Sheets(f).Range("B1:B" & Sheets(f).
[B65000].End(xlUp).Row)
For i = champ1.Rows.Count To 2 Step -1
If Application.CountIf(champ1, Sheets(f).Cells(i, 1)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
For i = champ2.Rows.Count To 2 Step -1
If Application.CountIf(champ2, Sheets(f).Cells(i, 2)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
End Sub
JB
On 31 mar, 21:20, JulieH <Juli...@microsoft.com> wrote:
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cependant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières où il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH <jul...@discussions.microsoft.com> wrote:
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?dFwyrdXlb2
Sub essai()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "temp"
On Error GoTo 0
f = 1
Set champ1 = Sheets(f).Range("A1:A" & Sheets(f).
[A65000].End(xlUp).Row)
Set champ2 = Sheets(f).Range("B1:B" & Sheets(f).
[B65000].End(xlUp).Row)
For i = champ1.Rows.Count To 2 Step -1
If Application.CountIf(champ1, Sheets(f).Cells(i, 1)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
For i = champ2.Rows.Count To 2 Step -1
If Application.CountIf(champ2, Sheets(f).Cells(i, 2)) > 1 Then
k = k + 1
Sheets("temp").Cells(k, 1).Resize(, 2).Value = Sheets(f).Cells(i,
1).Resize(, 2).Value
Sheets(f).Rows(i).Delete
End If
Next i
End Sub
JB
On 31 mar, 21:20, JulieH wrote:Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cependant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières où il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié.
J'ai une base de données que je souhaite mettre à jour. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B un numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, en B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bureau (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux points, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les données à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élèves à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
Julie
Avec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH <jul...@discussions.microsoft.com> wrote:
Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour ton aide,
La solution VBA correspond bien à ce que je demande. Cep endant comme je
l'ai écrit dans les messages complémentaires, je souhaite :
- Garder la première valeur.
- Toujours supprimer la seconde
- Noter dans le fichier temporaire les lignes entières o ù il y a un
doublon quelqu'il soit (correspondant toujours à la seconde valeur).
JulieAvec MFC:
http://cjoint.com/?dFvbzOcq5S
JB
On 31 mar, 17:05, JulieH wrote:Re-bonjour à toutes et tous,
Deuxième problème du jour, évidemment simplifié .
J'ai une base de données que je souhaite mettre à j our. les données à
remonter sont dans un autre fichier :
- Structure de la base : en colonne A un nom d'élève, en B u n numéro
de bureau.
- Structure du fichier à remonter : en A un nom d'élève, e n B le
numéro de bureau.
Je sais remonter le fichier à la fin de la base. Mais il me manque
plusieurs choses pour gérer les erreurs. En effet, il ne doit jamais y
avoir de doublons sur le nom de l'élève, ni sur le numéro de bure au (ni
à plus forte raison sur les 2 en même temps).
En cas de doublons sur l'un ou l'autre de ces deux poin ts, la macro
doit donc :
- Remonter toutes les données cohérentes, mais rejeter les d onnées à
problème.
- Signaler le problème.
- Générer une feuille EXCEL avec les numéros des élève s à problème.
Merci pour vos idées
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -