(macro) collage façon bataille naval

[erbo59]

bonjour,

desolé pour le titre mais pour moi ça ressemble a une bataille naval
voila je souhaite coller le contenu d'une cellule de la feuille "formulaire" dans la feuille "base de donnée"

exemple: dans mon formulaire j'ai
#nom: Paul
#Jour: 6
#valeur a copier: 15

Je souhaite copier 15 et le coller dans la cellule qui correspond a la ligne "Paul" et a la colonne "6"

j'espere avoir été clair

je n'y suis pas arriver avec l'enregistreur de macro

merci a vous pour votre aide

 

[kjin]

Re : (macro) collage façon bataille naval

Bonjour,
Dois tu créer une nouvelle ligne à chaque fois dans la base ?
A+
kjin

 

[Pierrot93]

Re : (macro) collage façon bataille naval

Bonsoir Erbo, Kjin

regarde le code ci-dessous, si j'ai bien compris...

Option Explicit
Sub test()
Dim x As Range, y As Range
With Sheets("Formulaire")
    Set x = Sheets("Base de donnée").Range("A:A").Find(.Range("A2").Value, , xlValues, xlWhole, , , False)
    Set y = Sheets("Base de donnée").Range("1:1").Find(.Range("B2").Value, , xlValues, xlWhole, , , False)
    If Not x Is Nothing And Not y Is Nothing Then Cells(x.Row, y.Column).Value = .Range("C2").Value
End With
End Sub

bonne soirée
@+

 

[erbo59]

Re : (macro) collage façon bataille naval

merci pour vos reponses rapides

Bonjour,
Dois tu créer une nouvelle ligne à chaque fois dans la base ?
A+
kjin

oui ca serais un plus de créer une nouvelle ligne dans la base de donnée si le nom n'existe pas dans cette base

Bonsoir Erbo, Kjin

regarde le code ci-dessous, si j'ai bien compris...

Option Explicit
Sub test()
Dim x As Range, y As Range
With Sheets("Formulaire")
    Set x = Sheets("Base de donnée").Range("A:A").Find(.Range("A2").Value, , xlValues, xlWhole, , , False)
    Set y = Sheets("Base de donnée").Range("1:1").Find(.Range("B2").Value, , xlValues, xlWhole, , , False)
    If Not x Is Nothing And Not y Is Nothing Then Cells(x.Row, y.Column).Value = .Range("C2").Value
End With
End Sub

bonne soirée
@+

merci Pierrot93, je vais tester ca

edit: Pierrot93 j'ai testé ça me convient je vais l"annalysé pour la comprendre, et l'integrer aux reste