1 champs = compléter une base de données

Re : 1 champs = compléter une base de données

OUIIIIII okkkkk
ayé
j'ai réussi grace à ton aide Jean-Pierre.
mais je voudrais dire.... j'ai rien compris à la VBA! ;-) j'ai fait un copié collé bete et mechant.
tu sais où je pourrais trouver tout ce qu'il faut pour être calée?

Re : 1 champs = compléter une base de données

Re,

Rien de mieux que dit précédemment en réponse à ta question.

Clic droit sur l'onglet et Visualiser le code et tu colles ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Set cel = Intersect(Sheets("Feuil1").Range("B2:G2"), Target)
If Not cel Is Nothing Then
Me.Cells(Target.Row + 1, Target.Column) = Me.Cells(Target.Row + 1, Target.Column) + Target.Value
End If
Set cel = Intersect(Sheets("Feuil1").Range("B11:G11"), Target)
If Not cel Is Nothing Then
Me.Cells(Target.Row + 1, Target.Column) = Me.Cells(Target.Row + 1, Target.Column) + Target.Value
End If
Set cel = Intersect(Sheets("Feuil1").Range("B20:G20"), Target)
If Not cel Is Nothing Then
Me.Cells(Target.Row + 1, Target.Column) = Me.Cells(Target.Row + 1, Target.Column) + Target.Value
End If
End Sub

Par ailleurs, lorsque tu déposes un fichier qui ne fait pas appel à des fonctions particulières de 2007, il est plus sympa.de le déposer au Format 97-2003 (par Enregister sous)

Je quitte maintenant, intendance oblige..

Re : 1 champs = compléter une base de données

Re,

Pour répondre à ta dernière question.

Lire les fils de ce forum. Tu en choisis un dont la question te semble intéressante, tu étudies la question et tu analyses les réponses, tu testes et essaies de comprendre (au besoin tu poses tes propres questions)... ensuite un autre, etc... etc.

Les bouquins racontent toujours la même chose mais ils restent quelquefois nécessaires. Tu vas en boutique tu regardes, tu feuilletes et si cela te convient, ben tu prends.

Pour être calé(e), cela prend un peu, voire beaucoup de temps, mais il ne faut pas compter.

Bonne soirée.

Jean-Pierre