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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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