Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pb en vba

pb en vba

10 réponses
Avatar
chris
Bonjour,

Je voudrais, si je tape devis en G2 que ca ne change rien mais si je met
facture en G2 que ca copie - colle les lignes 62 à 72 à partir de la ligne 49
puis que le texte ce mette en noir.
Voila à quoi j'ai pensé mais ca ne marche pas (c'est normal je ne suis pas
bon)
Sub FACTURE()
IF ("g2").value = "facture" then
Rows("62:72").Select
Selection.Copy
Rows("49:49").Select
ActiveSheet.Paste
Else
End If
End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
CAP2
SAlut,

déjà à la 2ème ligne de ton code, change ("g2").value par Range("G2").value
ou [G2].Value pour faire plaisir à certains ;o))))

A plus

CAP2

"chris" a écrit dans le message de news:

Bonjour,

Je voudrais, si je tape devis en G2 que ca ne change rien mais si je met
facture en G2 que ca copie - colle les lignes 62 à 72 à partir de la ligne
49

puis que le texte ce mette en noir.
Voila à quoi j'ai pensé mais ca ne marche pas (c'est normal je ne suis pas
bon)
Sub FACTURE()
IF ("g2").value = "facture" then
Rows("62:72").Select
Selection.Copy
Rows("49:49").Select
ActiveSheet.Paste
Else
End If
End Sub



Avatar
CAP2
Resalut,

et puis pour le texte en noir tu rajoutes Selection.Font.ColorIndex=1 après
ton ActiveSheet.Paste :

Ca marche ??

CAP2

"chris" a écrit dans le message de news:

Bonjour,

Je voudrais, si je tape devis en G2 que ca ne change rien mais si je met
facture en G2 que ca copie - colle les lignes 62 à 72 à partir de la ligne
49

puis que le texte ce mette en noir.
Voila à quoi j'ai pensé mais ca ne marche pas (c'est normal je ne suis pas
bon)
Sub FACTURE()
IF ("g2").value = "facture" then
Rows("62:72").Select
Selection.Copy
Rows("49:49").Select
ActiveSheet.Paste
Else
End If
End Sub



Avatar
AV
..change ("g2").value par Range("G2").value
ou [G2].Value


Là on fait carrément dans le superfétatoire !
[G2] suffit amplement

[AV]

Avatar
CAP2
La réaction ne s'est pas faite attendre ;o)))

CAP2

"AV" a écrit dans le message de news:

..change ("g2").value par Range("G2").value
ou [G2].Value


Là on fait carrément dans le superfétatoire !
[G2] suffit amplement

[AV]






Avatar
AV
La réaction ne s'est pas faite attendre ;o)))


Heu.... le [G2].Value était fait pour entrainer une réaction ?
Ce pas ce que j'ai cru au 1° ras bord ....

AV

Avatar
CAP2
Salut,

En relisant mon post, j'ai vu ma "gaffe" (philosophiquement impardonnable,
techniquement effectif), mais c'était trop tard.
De là à noyer ma honte en remplissant mes verres à ras bord...
;o))

A+
CAP2

"AV" a écrit dans le message de news:
#
La réaction ne s'est pas faite attendre ;o)))


Heu.... le [G2].Value était fait pour entrainer une réaction ?
Ce pas ce que j'ai cru au 1° ras bord ....

AV





Avatar
Michel Gaboly
Bonjour Chris,

Le problème, en ce qui concerne le copier coller est la différence de taille des 2
plages : tu ne peux coller une plage de 11 lignes (62 à 72) sur une plage d'une
seule ligne (49).

Il faut sélectionner une plage de même taille, ou une seule cellule, correspondant
au coin supérieur gauche de la plage où coller les données, ici A49 :


Sub FACTURE()
If Range("g2") = "Facture" Then
Rows("62:72").Copy
Range("A49").Select
ActiveSheet.Paste
End If
End Sub




Bonjour,

Je voudrais, si je tape devis en G2 que ca ne change rien mais si je met
facture en G2 que ca copie - colle les lignes 62 à 72 à partir de la ligne 49
puis que le texte ce mette en noir.
Voila à quoi j'ai pensé mais ca ne marche pas (c'est normal je ne suis pas
bon)
Sub FACTURE()
IF ("g2").value = "facture" then
Rows("62:72").Select
Selection.Copy
Rows("49:49").Select
ActiveSheet.Paste
Else
End If
End Sub


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
AV
Faute avouée.....;-)

AV
Avatar
jps
des fois que tu n'arrives pas à la noyer tout seul, CAP2, n'hésite pas :
klaxonne...
jps (comme les scouts : toujours prêt)

"CAP2" a écrit dans le message de
news:
De là à noyer ma honte en remplissant mes verres à ras bord...
;o))

A+
CAP2

"AV" a écrit dans le message de news:
#
La réaction ne s'est pas faite attendre ;o)))


Heu.... le [G2].Value était fait pour entrainer une réaction ?
Ce pas ce que j'ai cru au 1° ras bord ....

AV









Avatar
CAP2
Je n'hésiterai pas, jps !!
Si on y réfléchit bien, ras-bord ne signifie pas grand chose tout dépend de
la taille du verre...
Il y a un vieux dicton à ce propos :
"C'est celui qui a fait le verre, qui fait la mesure"

En ce qui me concerne, je n'ai rien contre une grosse honte à noyer avec un
gros verre
;o)))

CAP2

"jps" a écrit dans le message de news:

des fois que tu n'arrives pas à la noyer tout seul, CAP2, n'hésite pas :
klaxonne...
jps (comme les scouts : toujours prêt)

"CAP2" a écrit dans le message de
news:
De là à noyer ma honte en remplissant mes verres à ras bord...
;o))

A+
CAP2

"AV" a écrit dans le message de news:
#
La réaction ne s'est pas faite attendre ;o)))


Heu.... le [G2].Value était fait pour entrainer une réaction ?
Ce pas ce que j'ai cru au 1° ras bord ....

AV