Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Une petite aide SVP

Une petite aide SVP

8 réponses
Avatar
adam
bonsoir
un petit coup de main sur cette formule svp:
If [Créance!i3] = "X" And [Créance!j3] = "X" And [Créance!k3] = "X" And
[Créance!l3] = "X" Then Worksheets("Créance").Range("A3:c3").copy
Destination:=Worksheets("Paiement").Range("A4") Else: MsgBox " Toutes les
cases ne sont pas cochées"

1er
je n'arive pas a y ajouter les cellules g3 et h3 dans
Worksheets("Créance").Range("A3:c3").copy

et 2eme
comment faire sachant que je vais avoir d'autre ligne pour ne pas ecraser
mes cellules ?
Signaler un problème avec ce contenu

8 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
jps
bonjour adam
pour la première question, essaie ainsi

Worksheets("Créance").Range("a3:c3, g3,h3").Copy

quant à la deuxième, je ne la comprends pas (Modeste, ta g......)
jps


"adam" a écrit dans le message de news:
43ff9aac$0$167$
bonsoir
un petit coup de main sur cette formule svp:
If [Créance!i3] = "X" And [Créance!j3] = "X" And [Créance!k3] = "X" And
[Créance!l3] = "X" Then Worksheets("Créance").Range("A3:c3").copy
Destination:=Worksheets("Paiement").Range("A4") Else: MsgBox " Toutes les
cases ne sont pas cochées"

1er
je n'arive pas a y ajouter les cellules g3 et h3 dans
Worksheets("Créance").Range("A3:c3").copy

et 2eme
comment faire sachant que je vais avoir d'autre ligne pour ne pas ecraser
mes cellules ?





Avatar
JLuc
*Bonjour adam*,

If [Créance!i3] = "X" And [Créance!j3] = "X" And _
[Créance!k3] = "X" And [Créance!l3] = "X" Then
Worksheets("Créance").Range("A3:C3;G3:H3").copy _
Destination:=Worksheets("Paiement").Range("A" & _
Range("A65536").End(xlup).row)
Else
MsgBox " Toutes les cases ne sont pas cochées"
End If

bonsoir
un petit coup de main sur cette formule svp:
If [Créance!i3] = "X" And [Créance!j3] = "X" And [Créance!k3] = "X" And
[Créance!l3] = "X" Then Worksheets("Créance").Range("A3:c3").copy
Destination:=Worksheets("Paiement").Range("A4") Else: MsgBox " Toutes les
cases ne sont pas cochées"

1er
je n'arive pas a y ajouter les cellules g3 et h3 dans
Worksheets("Créance").Range("A3:c3").copy

et 2eme
comment faire sachant que je vais avoir d'autre ligne pour ne pas ecraser
mes cellules ?



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
JLuc
Petite erreur :')
If [Créance!i3] = "X" And [Créance!j3] = "X" And _
[Créance!k3] = "X" And [Créance!l3] = "X" Then
Worksheets("Créance").Range("A3:C3;G3:H3").copy _
("A3:C3,G3:H3")

Destination:=Worksheets("Paiement").Range("A" & _
Range("A65536").End(xlup).row)
Else
MsgBox " Toutes les cases ne sont pas cochées"
End If
Merci à jps


bonsoir
un petit coup de main sur cette formule svp:
If [Créance!i3] = "X" And [Créance!j3] = "X" And [Créance!k3] = "X" And
[Créance!l3] = "X" Then Worksheets("Créance").Range("A3:c3").copy
Destination:=Worksheets("Paiement").Range("A4") Else: MsgBox " Toutes les
cases ne sont pas cochées"

1er
je n'arive pas a y ajouter les cellules g3 et h3 dans
Worksheets("Créance").Range("A3:c3").copy

et 2eme
comment faire sachant que je vais avoir d'autre ligne pour ne pas ecraser
mes cellules ?




--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O


Avatar
AV
Sub zzz()
If [countif(I3:L3,"X")] = 4 Then
Application.Union([Créance!A3:C3], [Créance!G3:H3]).Copy
Sheets("Paiement").[A65536].End(3)(2)
Else: MsgBox "Toutes les cases ne sont pas cochées"
End If
End Sub

AV
Avatar
adam
merci beaucoup a vous deux(jean luc et jps )


"JLuc" a écrit dans le message de
news:
*Bonjour adam*,

If [Créance!i3] = "X" And [Créance!j3] = "X" And _
[Créance!k3] = "X" And [Créance!l3] = "X" Then
Worksheets("Créance").Range("A3:C3;G3:H3").copy _
Destination:=Worksheets("Paiement").Range("A" & _
Range("A65536").End(xlup).row)
Else
MsgBox " Toutes les cases ne sont pas cochées"
End If

bonsoir
un petit coup de main sur cette formule svp:
If [Créance!i3] = "X" And [Créance!j3] = "X" And [Créance!k3] = "X" And
[Créance!l3] = "X" Then Worksheets("Créance").Range("A3:c3").copy
Destination:=Worksheets("Paiement").Range("A4") Else: MsgBox " Toutes
les


cases ne sont pas cochées"

1er
je n'arive pas a y ajouter les cellules g3 et h3 dans
Worksheets("Créance").Range("A3:c3").copy

et 2eme
comment faire sachant que je vais avoir d'autre ligne pour ne pas
ecraser


mes cellules ?



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
AV
| merci beaucoup a vous deux(jean luc et jps )

Fallait surtout pas...
Je suis confus
C'est beaucoup trop !

AV
Avatar
adam
oups merci a toi aussi alain
désolé


"AV" a écrit dans le message de
news:%23Y8Y$
| merci beaucoup a vous deux(jean luc et jps )

Fallait surtout pas...
Je suis confus
C'est beaucoup trop !

AV




Avatar
jps
normal, AV, car ta tienne à toi était un peu trop diluée...
mais bon, la jalousie, c'est comme l'étalon sauvage dans les grandes plaines
du limousin : ça ne se domine pas...
jps

"AV" a écrit dans le message de news:
%23Y8Y$
| merci beaucoup a vous deux(jean luc et jps )

Fallait surtout pas...
Je suis confus
C'est beaucoup trop !

AV