Manipulation de donnees

[Clark]

Bonjjour, j'aimerai savoir comment faire une copie du contenu de certaines cellules (NbInter,Code,Nb1,Nb2,Nb3) d'une feuille sur une autre sachant que :
Si NbInter est deja present => Ajouter aux valeurs deja presentes (Nb1,Nb2,Nb3) celles que l'on veut copier

Merci d'avance....

PS : C pour faire des stats a la fin de saisie de doc

 

[JC de Lorient]

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]

 

[Clark]

merci

 

[pascal]

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

 

[Pascal]

il a pas pris le fichier

 

[pascal]

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

 

[JC de Lorient]

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

 

[Pascal]

Merci JC

 

[Pascal]

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.

 

[JC de Lorient]

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

JC

 

[Pascal]

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