Manipulation de donnees

J

JC de Lorient

Guest

• 28 Novembre 2005

• #2

salut clark, le forum

ci joint un petit exemple qu'il te faudra certainement a adapter

tu pars de la feuille 2
sélectionne la ligne que tu veux rajouter ou tu en crées une
tu te positionne sur la collonne A de cette ligne
tu lances la macro 'ALT+F8)

a ton service pour plus d'aide
si besoin joint un bout de fichier

bon courage

JC [file name=clark.zip size=9808]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/clark.zip[/file]

 

Pièces jointes

• clark.zip

  9.6 KB · Affichages: 27

Vote positif 0 Vote négatif

C

Clark

Guest

• 29 Novembre 2005

• #3

merci

 

Vote positif 0 Vote négatif

P

pascal

Guest

• 30 Novembre 2005

• #4

bonjour, g essaye de voir avec le code ke tu m'as envoye.... meme avec les bouquins, je n'arrive pas a tout trouver. Te serait il possible de regarder le code ke g pu ecrire stp ? Y a un gros bug ke je vois pas...(g laisse une indication sur la feuille 2 du classeur ke je te joins pour te dire ce ke j'essaie de faire)

Merci encore

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 30 Novembre 2005

• #5

il a pas pris le fichier

 

Vote positif 0 Vote négatif

P

pascal

Guest

• 30 Novembre 2005

• #6

[file name=Essai_20051130165020.zip size=12959]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_20051130165020.zip[/file] 😱

 

Pièces jointes

• Essai_20051130165020.zip

  12.7 KB · Affichages: 25

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 2 Décembre 2005

• #7

salut pascal

voici le code a mettre sur ton bouton

JC

Private Sub Enregistrer_Click()
Dim Nb_Inter As Long
Dim Nb1, Nb2, Nb3 As Integer
Dim vLigne As Integer
Dim vCellule As Object
Dim monadresse, a As Integer


Nb_Inter = Worksheets(1).Range('B6').Value
Nb1 = Worksheets(1).Range('H15').Value
Nb2 = Worksheets(1).Range('L15').Value
Nb3 = Worksheets(1).Range('P15').Value

With ActiveWorkbook.Sheets(2).Columns(1)
Set c = .Find(Nb_Inter, LookIn:=xlValues)
If Not c Is Nothing Then
monadresse = c.Address

Sheets(2).Range(monadresse).Offset(0, 1) = Sheets(2).Range(monadresse).Offset(0, 1).Value + Nb1
Sheets(2).Range(monadresse).Offset(0, 2) = Sheets(2).Range(monadresse).Offset(0, 2).Value + Nb2
Sheets(2).Range(monadresse).Offset(0, 3) = Sheets(2).Range(monadresse).Offset(0, 3).Value + Nb3

Else
a = Sheets(2).Range('A65536').End(xlUp).Row + 1
Sheets(2).Range('A' & a) = Nb_Inter
Sheets(2).Range('B' & a) = Nb1
Sheets(2).Range('C' & a) = Nb2
Sheets(2).Range('D' & a) = Nb3
End If
End With

End Sub

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 2 Décembre 2005

• #8

Merci JC

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 2 Décembre 2005

• #9

Re-bonjour, une petite ki peutparaître anodine mais : sous C, C++ ou Java, je sais k'il est possible de creer ou ouvrir un fichier existant et d'ecrire a la suite de l'existant. En est il de même sous VBA (enfin par le biaias des maccros ) ?

Je pose la question car dans tous les bouquins ke g pu acheter dans le commerce pour VBA ou les maccros d'Excel, aucun ne mentionne ce fait.

Merci de votre aide.

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 2 Décembre 2005

• #10

re ...
navré mé pour ta dernière question ai point de réponse

JC

 

Vote positif 0 Vote négatif

P

Pascal

Guest

• 3 Décembre 2005

• #11

Bonjour, Merci quand même.
Passez de bonnes fêtes de fin d'années :woohoo:

 

Vote positif 0 Vote négatif