Doublons

Le
Louis
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21660981
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
Louis
Le #21661171
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


.

Daniel.C
Le #21661501
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




.

Louis
Le #21683881
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
>>
>>
>> .
>>


.

Daniel.C
Le #21684571
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




.







.

Louis
Le #21685371
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
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Daniel.C
Le #21685551
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




.







.







.

Louis
Le #21685861
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
>>>>>>
>>>>>>
>>>>>> .
>>>>>>
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Daniel.C
Le #21686181
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




.







.







.







.

Louis
Le #21687211
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
>>>>>>>>
>>>>>>>>
>>>>>>>> .
>>>>>>>>
>>>>>>
>>>>>>
>>>>>> .
>>>>>>
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Publicité
Poster une réponse
Anonyme