Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant.
En pointant sur une cellule je voudrai pouvoir écrire son contenu dans une
cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une
condition pour choisir la colonne mais cela je sais faire.
Comment écrire ma ligne de programme pour écrire la valeur de B3, par
exemple, 3 clonne plus loin (en relatif).
Merci de votre aide
FC
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
JPMonnier
Bonjour, tu peux coller la valeur d'une cellule en utilisant Offset ex : [c1].Offset(0, 3) = [c1] ceci copie en F1 la valeur de C1 Offset(0,3) décale de 0 ligne et 3 colonnes, donc 3 cellules vers la droite prend la valeur de C1 -- Cordialement
"Geronimo93" a écrit dans le message de news:
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant. En pointant sur une cellule je voudrai pouvoir écrire son contenu dans une cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une condition pour choisir la colonne mais cela je sais faire. Comment écrire ma ligne de programme pour écrire la valeur de B3, par exemple, 3 clonne plus loin (en relatif). Merci de votre aide FC
Bonjour,
tu peux coller la valeur d'une cellule en utilisant Offset
ex :
[c1].Offset(0, 3) = [c1]
ceci copie en F1 la valeur de C1
Offset(0,3) décale de 0 ligne et 3 colonnes, donc 3 cellules vers la droite
prend la valeur de C1
--
Cordialement
jpmonnier-nospam@neuf.fr
"Geronimo93" <Geronimo93@discussions.microsoft.com> a écrit dans le message
de news:EF538960-F2AD-493D-8BEC-F5A5EF72C237@microsoft.com...
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant.
En pointant sur une cellule je voudrai pouvoir écrire son contenu dans
une
cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une
condition pour choisir la colonne mais cela je sais faire.
Comment écrire ma ligne de programme pour écrire la valeur de B3, par
exemple, 3 clonne plus loin (en relatif).
Merci de votre aide
FC
Bonjour, tu peux coller la valeur d'une cellule en utilisant Offset ex : [c1].Offset(0, 3) = [c1] ceci copie en F1 la valeur de C1 Offset(0,3) décale de 0 ligne et 3 colonnes, donc 3 cellules vers la droite prend la valeur de C1 -- Cordialement
"Geronimo93" a écrit dans le message de news:
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant. En pointant sur une cellule je voudrai pouvoir écrire son contenu dans une cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une condition pour choisir la colonne mais cela je sais faire. Comment écrire ma ligne de programme pour écrire la valeur de B3, par exemple, 3 clonne plus loin (en relatif). Merci de votre aide FC
Hervé
Bonjour, A mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
'suspend les évennements Application.EnableEvents = False 'gère les différentes erreurs, etc... On Error Resume Next 'décale de 3 colonnes Target.Offset(0, 3).Value = Target 'si pas de valeur dans la cellule cible 'Target = "" 'remet le gestionnaire d'erreur à zéro On Error GoTo 0 'rétabli les évennements Application.EnableEvents = True
End Sub
Hervé.
"Geronimo93" a écrit dans le message de news:
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant. En pointant sur une cellule je voudrai pouvoir écrire son contenu dans une cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une condition pour choisir la colonne mais cela je sais faire. Comment écrire ma ligne de programme pour écrire la valeur de B3, par exemple, 3 clonne plus loin (en relatif). Merci de votre aide FC
Bonjour,
A mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
'suspend les évennements
Application.EnableEvents = False
'gère les différentes erreurs, etc...
On Error Resume Next
'décale de 3 colonnes
Target.Offset(0, 3).Value = Target
'si pas de valeur dans la cellule cible
'Target = ""
'remet le gestionnaire d'erreur à zéro
On Error GoTo 0
'rétabli les évennements
Application.EnableEvents = True
End Sub
Hervé.
"Geronimo93" <Geronimo93@discussions.microsoft.com> a écrit dans le message
de news:EF538960-F2AD-493D-8BEC-F5A5EF72C237@microsoft.com...
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant.
En pointant sur une cellule je voudrai pouvoir écrire son contenu dans
une
cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une
condition pour choisir la colonne mais cela je sais faire.
Comment écrire ma ligne de programme pour écrire la valeur de B3, par
exemple, 3 clonne plus loin (en relatif).
Merci de votre aide
FC
Private Sub Worksheet_Change(ByVal Target As Range)
'suspend les évennements Application.EnableEvents = False 'gère les différentes erreurs, etc... On Error Resume Next 'décale de 3 colonnes Target.Offset(0, 3).Value = Target 'si pas de valeur dans la cellule cible 'Target = "" 'remet le gestionnaire d'erreur à zéro On Error GoTo 0 'rétabli les évennements Application.EnableEvents = True
End Sub
Hervé.
"Geronimo93" a écrit dans le message de news:
Bonjour à tous et en particulier aux spécialistes de VBA
n petit problème de débuttant. En pointant sur une cellule je voudrai pouvoir écrire son contenu dans une cellule distante de 3 (ou plus) colonne sur la même ligne. Il y a une condition pour choisir la colonne mais cela je sais faire. Comment écrire ma ligne de programme pour écrire la valeur de B3, par exemple, 3 clonne plus loin (en relatif). Merci de votre aide FC
