OVH Cloud OVH Cloud

Renvoie de données

1 réponse
Avatar
couffignal.j
Bonjour, j'ai une opération assez délicate. A partir d'une feuille
(Renseignements), je voudrais rentrer des renseignements. Et suivant le
contenu d'une cellule de ses renseignements, je voudrais qu'il y ai un
transfert de ses renseignements vers une autres feuille (Classements). Et
pouvoir dans les cellules de renseignements réécrire d'autres
renseignements.
Merci d'avance
Jérôme

1 réponse

Avatar
anomymousA
bonjour,

je suppose dans ce qui suit que les cellules à remplir dans la feuille
Classements sont dans la colonne A
On suppose par ailleurs que c'est quand l'utilisateur frappe un texte donné
(p.e: lee texte toto) que la feuille classements doit être alimentée

Dans le module de la feuille Renseignements mettre, la procédure suivante

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Target.Value = "toto" Then
With Sheets("Classements")
.Cells(.Range("A65536").End(xlUp).Row + 1, 1).Value = Target.Value
End With
End If

End Sub

L'inscription des données commencera en ligne 2 de la feuille Classements.
Le on error resume next est là pour éviter que si on prend une plage de
cellules sur la feuille renseignements et qu'on la copie ou qu'on la
supprime, le programme ne se plante.
Par ailleurs, le copier-coller ne déclenchera peut-être pas de modifs.

A+

End Sub





Bonjour, j'ai une opération assez délicate. A partir d'une feuille
(Renseignements), je voudrais rentrer des renseignements. Et suivant le
contenu d'une cellule de ses renseignements, je voudrais qu'il y ai un
transfert de ses renseignements vers une autres feuille (Classements). Et
pouvoir dans les cellules de renseignements réécrire d'autres
renseignements.
Merci d'avance
Jérôme