Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problème dans base de donnée incrémentielle

lobinho01

XLDnaute Nouveau
Bonjour,
la commande ci dessous me permet de copier des numéros de plans et dates dans un fichier appelé base.
Mon problème est que si je rappelle un plan et que je l'enregistre à nouveau, il crée une nouvelle ligne au lieu de remplacer l'ancienne.
Je suis sur que c'est simple, mais je suis tellement doué que ....
merci beaucoup

Public Function Parcourir(Cel)
Range(Cel).Activate
En_colonne = ActiveCell.Column
En_ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_ligne, En_colonne).Activate
En_ligne = En_ligne + 1
Wend
Parcourir = ActiveCell.Address
End Function
--------------------------------------------
Sub numero()
Application.ScreenUpdating = False
Dim p1, p2, p3, p4, NUMER As Range
Set p1 = Range("I2")
Set p2 = Range("B3")
Set p3 = Range("I1")
Set p4 = Range("B2")
p1.Select
Selection.Copy
Windows("BASE.XLS").Activate
Parcourir ("A2")
li = ActiveCell.Row
Range("A" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p2.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("B" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p3.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("C" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p4.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("D" & li).Activate
Selection.PasteSpecial Paste:=xlValue
Windows("bernard2.xls").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
 

Discussions similaires

Réponses
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…