Doublons

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

Bonjour

J'ai une macro qui fonctionne bien (voir ci-dessous).
comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.

merci si vous pouvez m'aider sur se sujet.

salutations






Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

'Wk.Close True'
End Sub

Bonjour Daniel

j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
en choisissant oui ou non

cordialement

"Daniel.C" a écrit :

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

> Bonjour
>
> J'ai une macro qui fonctionne bien (voir ci-dessous).
> comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.
>
> merci si vous pouvez m'aider sur se sujet.
>
> salutations
>
>
>
>
>
>
> Sub ubertransferieren()
> '
> ' Macro1 Macro
> ' Macro enregistrée le 15.04.2010
> '
>
> Dim Wk As Workbook
>
>
> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>
>
>
> Windows("excel base.xls").Activate
> Range("B1:B80").Select
> Selection.Copy
> Windows("Databasere_validierung.xls").Activate
> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
> SkipBlanks:= _
> False, Transpose:=True
>
> 'Wk.Close True'
> End Sub


.

Essaie comme ceci (non testé):

Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook, Rep


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
Then
Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
"Doublon")
If Rep = vbYes Then
Rep = InputBox("Entrez la nouvelle valeur")
If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
End If
End If
'Wk.Close True'
End Sub

Daniel

Bonjour Daniel

j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
en choisissant oui ou non

cordialement

"Daniel.C" a écrit :

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

Bonjour

J'ai une macro qui fonctionne bien (voir ci-dessous).
comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.

merci si vous pouvez m'aider sur se sujet.

salutations






Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

'Wk.Close True'
End Sub

.

Rebonjour

Merci pour la macro elle fonctionne mais j'ai un petit problème.

comment faire si on veux élimimer la ligne qui contient le doublon et la
remplacer par une nouvelle ligne corrigée.

"Daniel.C" a écrit :

Essaie comme ceci (non testé):

Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook, Rep


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
Then
Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
"Doublon")
If Rep = vbYes Then
Rep = InputBox("Entrez la nouvelle valeur")
If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
End If
End If
'Wk.Close True'
End Sub

Daniel

> Bonjour Daniel
>
> j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
> en choisissant oui ou non
>
> cordialement
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Que veux-tu faire, s'il y a des doublons ?
>> Cordialement.
>> Daniel
>>
>>> Bonjour
>>>
>>> J'ai une macro qui fonctionne bien (voir ci-dessous).
>>> comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.
>>>
>>> merci si vous pouvez m'aider sur se sujet.
>>>
>>> salutations
>>>
>>>
>>>
>>>
>>>
>>>
>>> Sub ubertransferieren()
>>> '
>>> ' Macro1 Macro
>>> ' Macro enregistrée le 15.04.2010
>>> '
>>>
>>> Dim Wk As Workbook
>>>
>>>
>>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>
>>>
>>>
>>> Windows("excel base.xls").Activate
>>> Range("B1:B80").Select
>>> Selection.Copy
>>> Windows("Databasere_validierung.xls").Activate
>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>> SkipBlanks:= _
>>> False, Transpose:=True
>>>
>>> 'Wk.Close True'
>>> End Sub
>>
>>
>> .
>>


.

Bonjour.
Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
place de l'ancienne ou doit-on la mettre à la suite des autres ?
Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
donner un exemple ?
Daniel

Rebonjour

Merci pour la macro elle fonctionne mais j'ai un petit problème.

comment faire si on veux élimimer la ligne qui contient le doublon et la
remplacer par une nouvelle ligne corrigée.

"Daniel.C" a écrit :

Essaie comme ceci (non testé):

Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook, Rep


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
Then
Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
"Doublon")
If Rep = vbYes Then
Rep = InputBox("Entrez la nouvelle valeur")
If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
End If
End If
'Wk.Close True'
End Sub

Daniel

Bonjour Daniel

j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
en choisissant oui ou non

cordialement

"Daniel.C" a écrit :

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

Bonjour

J'ai une macro qui fonctionne bien (voir ci-dessous).
comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.

merci si vous pouvez m'aider sur se sujet.

salutations






Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

'Wk.Close True'
End Sub

.

.

Bonjour Daniel

la nouvelle ligne prendra la place de l'ancienne et remplacer toutes les
cellules.

salutations

"Daniel.C" a écrit :

Bonjour.
Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
place de l'ancienne ou doit-on la mettre à la suite des autres ?
Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
donner un exemple ?
Daniel

> Rebonjour
>
> Merci pour la macro elle fonctionne mais j'ai un petit problème.
>
> comment faire si on veux élimimer la ligne qui contient le doublon et la
> remplacer par une nouvelle ligne corrigée.
>
> "Daniel.C" a écrit :
>
>> Essaie comme ceci (non testé):
>>
>> Sub ubertransferieren()
>> '
>> ' Macro1 Macro
>> ' Macro enregistrée le 15.04.2010
>> '
>>
>> Dim Wk As Workbook, Rep
>>
>>
>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>
>>
>>
>> Windows("excel base.xls").Activate
>> Range("B1:B80").Select
>> Selection.Copy
>> Windows("Databasere_validierung.xls").Activate
>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>> SkipBlanks:= _
>> False, Transpose:=True
>> If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
>> Then
>> Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
>> "Doublon")
>> If Rep = vbYes Then
>> Rep = InputBox("Entrez la nouvelle valeur")
>> If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
>> End If
>> End If
>> 'Wk.Close True'
>> End Sub
>>
>> Daniel
>>
>>> Bonjour Daniel
>>>
>>> j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
>>> en choisissant oui ou non
>>>
>>> cordialement
>>>
>>> "Daniel.C" a écrit :
>>>
>>>> Bonjour.
>>>> Que veux-tu faire, s'il y a des doublons ?
>>>> Cordialement.
>>>> Daniel
>>>>
>>>>> Bonjour
>>>>>
>>>>> J'ai une macro qui fonctionne bien (voir ci-dessous).
>>>>> comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.
>>>>>
>>>>> merci si vous pouvez m'aider sur se sujet.
>>>>>
>>>>> salutations
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Sub ubertransferieren()
>>>>> '
>>>>> ' Macro1 Macro
>>>>> ' Macro enregistrée le 15.04.2010
>>>>> '
>>>>>
>>>>> Dim Wk As Workbook
>>>>>
>>>>>
>>>>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>>>
>>>>>
>>>>>
>>>>> Windows("excel base.xls").Activate
>>>>> Range("B1:B80").Select
>>>>> Selection.Copy
>>>>> Windows("Databasere_validierung.xls").Activate
>>>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>>>> SkipBlanks:= _
>>>>> False, Transpose:=True
>>>>>
>>>>> 'Wk.Close True'
>>>>> End Sub
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Une ligne comprend 256 cellules. Quelle la plage à modifier (par
exemple de la colonne C à la colonne F) ? En cas de doublon, est-ce
qu'on demande à l'utilisateur la valeur de chaque cellule ?
Daniel

Bonjour Daniel

la nouvelle ligne prendra la place de l'ancienne et remplacer toutes les
cellules.

salutations

"Daniel.C" a écrit :

Bonjour.
Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
place de l'ancienne ou doit-on la mettre à la suite des autres ?
Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
donner un exemple ?
Daniel

Rebonjour

Merci pour la macro elle fonctionne mais j'ai un petit problème.

comment faire si on veux élimimer la ligne qui contient le doublon et la
remplacer par une nouvelle ligne corrigée.

"Daniel.C" a écrit :

Essaie comme ceci (non testé):

Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook, Rep


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
Then
Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
"Doublon")
If Rep = vbYes Then
Rep = InputBox("Entrez la nouvelle valeur")
If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
End If
End If
'Wk.Close True'
End Sub

Daniel

Bonjour Daniel

j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
en choisissant oui ou non

cordialement

"Daniel.C" a écrit :

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

Bonjour

J'ai une macro qui fonctionne bien (voir ci-dessous).
comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.

merci si vous pouvez m'aider sur se sujet.

salutations






Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

'Wk.Close True'
End Sub

.

.

.

rebonjour
je m'exprime mal désolé.

comme la macro est capable de rajouter une ligne et de contròler si il y a
un doublon, je pensais qu'on pouvait annuler cette dernière et la remplacer
avec une nouvelle ligne en utilisant le coller spéciale qui se trouve dans la
macro.
J'espère que je me suis mieux exprimé.

Encore merci pour ta patience

"Daniel.C" a écrit :

Une ligne comprend 256 cellules. Quelle la plage à modifier (par
exemple de la colonne C à la colonne F) ? En cas de doublon, est-ce
qu'on demande à l'utilisateur la valeur de chaque cellule ?
Daniel

> Bonjour Daniel
>
> la nouvelle ligne prendra la place de l'ancienne et remplacer toutes les
> cellules.
>
> salutations
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
>> place de l'ancienne ou doit-on la mettre à la suite des autres ?
>> Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
>> donner un exemple ?
>> Daniel
>>
>>> Rebonjour
>>>
>>> Merci pour la macro elle fonctionne mais j'ai un petit problème.
>>>
>>> comment faire si on veux élimimer la ligne qui contient le doublon et la
>>> remplacer par une nouvelle ligne corrigée.
>>>
>>> "Daniel.C" a écrit :
>>>
>>>> Essaie comme ceci (non testé):
>>>>
>>>> Sub ubertransferieren()
>>>> '
>>>> ' Macro1 Macro
>>>> ' Macro enregistrée le 15.04.2010
>>>> '
>>>>
>>>> Dim Wk As Workbook, Rep
>>>>
>>>>
>>>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>>
>>>>
>>>>
>>>> Windows("excel base.xls").Activate
>>>> Range("B1:B80").Select
>>>> Selection.Copy
>>>> Windows("Databasere_validierung.xls").Activate
>>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>>> SkipBlanks:= _
>>>> False, Transpose:=True
>>>> If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
>>>> Then
>>>> Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
>>>> "Doublon")
>>>> If Rep = vbYes Then
>>>> Rep = InputBox("Entrez la nouvelle valeur")
>>>> If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
>>>> End If
>>>> End If
>>>> 'Wk.Close True'
>>>> End Sub
>>>>
>>>> Daniel
>>>>
>>>>> Bonjour Daniel
>>>>>
>>>>> j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
>>>>> en choisissant oui ou non
>>>>>
>>>>> cordialement
>>>>>
>>>>> "Daniel.C" a écrit :
>>>>>
>>>>>> Bonjour.
>>>>>> Que veux-tu faire, s'il y a des doublons ?
>>>>>> Cordialement.
>>>>>> Daniel
>>>>>>
>>>>>>> Bonjour
>>>>>>>
>>>>>>> J'ai une macro qui fonctionne bien (voir ci-dessous).
>>>>>>> comment peux t'on l'adapter pour eviter les doublons sur la colonne 3.
>>>>>>>
>>>>>>> merci si vous pouvez m'aider sur se sujet.
>>>>>>>
>>>>>>> salutations
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Sub ubertransferieren()
>>>>>>> '
>>>>>>> ' Macro1 Macro
>>>>>>> ' Macro enregistrée le 15.04.2010
>>>>>>> '
>>>>>>>
>>>>>>> Dim Wk As Workbook
>>>>>>>
>>>>>>>
>>>>>>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Windows("excel base.xls").Activate
>>>>>>> Range("B1:B80").Select
>>>>>>> Selection.Copy
>>>>>>> Windows("Databasere_validierung.xls").Activate
>>>>>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>>>>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>>>>>> SkipBlanks:= _
>>>>>>> False, Transpose:=True
>>>>>>>
>>>>>>> 'Wk.Close True'
>>>>>>> End Sub
>>>>>>
>>>>>>
>>>>>> .
>>>>>>
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Mettons que la copie ajoute une plage en ligne 75. Je détecte un
doublon avec la ligne 15. Est-ce que je supprime la ligne 15 ou la
ligne 75 ? Après suppression, il n'y a plus de doublon. Est-ce que je
dois demander quand même à l'utilisateur s'il veut modifier la valeur
de la cellule de la colonne C ?
Daniel

rebonjour
je m'exprime mal désolé.

comme la macro est capable de rajouter une ligne et de contròler si il y a
un doublon, je pensais qu'on pouvait annuler cette dernière et la remplacer
avec une nouvelle ligne en utilisant le coller spéciale qui se trouve dans la
macro.
J'espère que je me suis mieux exprimé.

Encore merci pour ta patience

"Daniel.C" a écrit :

Une ligne comprend 256 cellules. Quelle la plage à modifier (par
exemple de la colonne C à la colonne F) ? En cas de doublon, est-ce
qu'on demande à l'utilisateur la valeur de chaque cellule ?
Daniel

Bonjour Daniel

la nouvelle ligne prendra la place de l'ancienne et remplacer toutes les
cellules.

salutations

"Daniel.C" a écrit :

Bonjour.
Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
place de l'ancienne ou doit-on la mettre à la suite des autres ?
Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
donner un exemple ?
Daniel

Rebonjour

Merci pour la macro elle fonctionne mais j'ai un petit problème.

comment faire si on veux élimimer la ligne qui contient le doublon et la
remplacer par une nouvelle ligne corrigée.

"Daniel.C" a écrit :

Essaie comme ceci (non testé):

Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook, Rep


Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
Then
Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
"Doublon")
If Rep = vbYes Then
Rep = InputBox("Entrez la nouvelle valeur")
If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
End If
End If
'Wk.Close True'
End Sub

Daniel

Bonjour Daniel

j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
en choisissant oui ou non

cordialement

"Daniel.C" a écrit :

Bonjour.
Que veux-tu faire, s'il y a des doublons ?
Cordialement.
Daniel

Bonjour

J'ai une macro qui fonctionne bien (voir ci-dessous).
comment peux t'on l'adapter pour eviter les doublons sur la colonne
3.

merci si vous pouvez m'aider sur se sujet.

salutations






Sub ubertransferieren()
'
' Macro1 Macro
' Macro enregistrée le 15.04.2010
'

Dim Wk As Workbook


Set Wk =
Workbooks.Open(Filename:="C:Databasere_validierung.xls")



Windows("excel base.xls").Activate
Range("B1:B80").Select
Selection.Copy
Windows("Databasere_validierung.xls").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

'Wk.Close True'
End Sub

.

.

.

.

J'aimerai suprimer la ligne 75 et 15 et la remplcer avec le dernier coller
spéciale, si la macro demande "la fonction doit être éxécutée oui/Non" cela
suffira.

Merci

"Daniel.C" a écrit :

Mettons que la copie ajoute une plage en ligne 75. Je détecte un
doublon avec la ligne 15. Est-ce que je supprime la ligne 15 ou la
ligne 75 ? Après suppression, il n'y a plus de doublon. Est-ce que je
dois demander quand même à l'utilisateur s'il veut modifier la valeur
de la cellule de la colonne C ?
Daniel

> rebonjour
> je m'exprime mal désolé.
>
> comme la macro est capable de rajouter une ligne et de contròler si il y a
> un doublon, je pensais qu'on pouvait annuler cette dernière et la remplacer
> avec une nouvelle ligne en utilisant le coller spéciale qui se trouve dans la
> macro.
> J'espère que je me suis mieux exprimé.
>
> Encore merci pour ta patience
>
> "Daniel.C" a écrit :
>
>> Une ligne comprend 256 cellules. Quelle la plage à modifier (par
>> exemple de la colonne C à la colonne F) ? En cas de doublon, est-ce
>> qu'on demande à l'utilisateur la valeur de chaque cellule ?
>> Daniel
>>
>>> Bonjour Daniel
>>>
>>> la nouvelle ligne prendra la place de l'ancienne et remplacer toutes les
>>> cellules.
>>>
>>> salutations
>>>
>>> "Daniel.C" a écrit :
>>>
>>>> Bonjour.
>>>> Quelles sont les bornes de ta ligne ? La nouvelle ligne prendra la
>>>> place de l'ancienne ou doit-on la mettre à la suite des autres ?
>>>> Faut-il remplacer toutes les cellules de la ligne supprimée ? Peux-tu
>>>> donner un exemple ?
>>>> Daniel
>>>>
>>>>> Rebonjour
>>>>>
>>>>> Merci pour la macro elle fonctionne mais j'ai un petit problème.
>>>>>
>>>>> comment faire si on veux élimimer la ligne qui contient le doublon et la
>>>>> remplacer par une nouvelle ligne corrigée.
>>>>>
>>>>> "Daniel.C" a écrit :
>>>>>
>>>>>> Essaie comme ceci (non testé):
>>>>>>
>>>>>> Sub ubertransferieren()
>>>>>> '
>>>>>> ' Macro1 Macro
>>>>>> ' Macro enregistrée le 15.04.2010
>>>>>> '
>>>>>>
>>>>>> Dim Wk As Workbook, Rep
>>>>>>
>>>>>>
>>>>>> Set Wk = Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>>>>
>>>>>>
>>>>>>
>>>>>> Windows("excel base.xls").Activate
>>>>>> Range("B1:B80").Select
>>>>>> Selection.Copy
>>>>>> Windows("Databasere_validierung.xls").Activate
>>>>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>>>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>>>>> SkipBlanks:= _
>>>>>> False, Transpose:=True
>>>>>> If Application.CountIf([C:C], Cells(Rows.Count, 3).End(xlUp)) > 1
>>>>>> Then
>>>>>> Rep = MsgBox("Doublon; voulez-vous changer la valeur ?", vbYesNo,
>>>>>> "Doublon")
>>>>>> If Rep = vbYes Then
>>>>>> Rep = InputBox("Entrez la nouvelle valeur")
>>>>>> If Rep <> "" Then Cells(Rows.Count, 3).End(xlUp) = Rep
>>>>>> End If
>>>>>> End If
>>>>>> 'Wk.Close True'
>>>>>> End Sub
>>>>>>
>>>>>> Daniel
>>>>>>
>>>>>>> Bonjour Daniel
>>>>>>>
>>>>>>> j'aimerai pouvoir remplacer les données si l'utilisateur le désire.
>>>>>>> en choisissant oui ou non
>>>>>>>
>>>>>>> cordialement
>>>>>>>
>>>>>>> "Daniel.C" a écrit :
>>>>>>>
>>>>>>>> Bonjour.
>>>>>>>> Que veux-tu faire, s'il y a des doublons ?
>>>>>>>> Cordialement.
>>>>>>>> Daniel
>>>>>>>>
>>>>>>>>> Bonjour
>>>>>>>>>
>>>>>>>>> J'ai une macro qui fonctionne bien (voir ci-dessous).
>>>>>>>>> comment peux t'on l'adapter pour eviter les doublons sur la colonne
>>>>>>>>> 3.
>>>>>>>>>
>>>>>>>>> merci si vous pouvez m'aider sur se sujet.
>>>>>>>>>
>>>>>>>>> salutations
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Sub ubertransferieren()
>>>>>>>>> '
>>>>>>>>> ' Macro1 Macro
>>>>>>>>> ' Macro enregistrée le 15.04.2010
>>>>>>>>> '
>>>>>>>>>
>>>>>>>>> Dim Wk As Workbook
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Set Wk =
>>>>>>>>> Workbooks.Open(Filename:="C:Databasere_validierung.xls")
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Windows("excel base.xls").Activate
>>>>>>>>> Range("B1:B80").Select
>>>>>>>>> Selection.Copy
>>>>>>>>> Windows("Databasere_validierung.xls").Activate
>>>>>>>>> Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
>>>>>>>>> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
>>>>>>>>> SkipBlanks:= _
>>>>>>>>> False, Transpose:=True
>>>>>>>>>
>>>>>>>>> 'Wk.Close True'
>>>>>>>>> End Sub
>>>>>>>>
>>>>>>>>
>>>>>>>> .
>>>>>>>>
>>>>>>
>>>>>>
>>>>>> .
>>>>>>
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.