Amis du soir, Bonsoir
Voilà, je me jette une fois de plus à l'eau (coucou Jean-Paul) de la Manche
et je calle dans mon Grand Breton.
Je cherche quelqu'un (e) qui pourrait me correctionner ce quasi chef
d'oeuvre, SVP
---------------
Voilà de quoi on cause.
Si B4 n'est pas vide, tu copies B4:G4 et puis tu vas voir en B10
Si B10 est vide, tu y copies B4:G4, sinon
tu te sers de derL et tu cherches la première cel vide sous B10 et tu y
copies B4:G4.
------------------------
Sub AATest_Copie_Virginie()
derL = Range("B65536").End(xlUp).Row
If Range("B4") <> "" Then
Range("B4:G4").Select
Selection.Copy 'Range("B4:G4").Copy eut-il été suffisant?
If Range("B10") <> "" Then
Range("B10").Select
ActiveSheet.Paste
Else:Range("B" & derL + 1).Select
ActiveSheet.Paste
End If
End If
End Sub
----------------------
Mais voilà, le cong il n'en veut pas.
Un grand merci à tout aideur (euse)
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.
j.thiernesseNOSPAM@skynet.be
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
Nicolas B.
Salut Jacquouille,
L'erreur est dans la condition d'un des If : If Range("B10") = "" Then au lieu de <> 0.
Tu peux aussi éviter les sélections de cellules en faisant ainsi :
Sub Machin() Dim DerL As Long DerL = [B65536].End(xlUp).Row
If [B4] <> "" Then If [B10] = "" Then Range("B4:G4").Copy [B10] Else Range("B4:G4").Copy Cells(DerL + 1, 2) End If End If End Sub
A+ Nicolas B.
Jacquouille wrote:
Amis du soir, Bonsoir Voilà, je me jette une fois de plus à l'eau (coucou Jean-Paul) de la Manche et je calle dans mon Grand Breton. Je cherche quelqu'un (e) qui pourrait me correctionner ce quasi chef d'oeuvre, SVP --------------- Voilà de quoi on cause. Si B4 n'est pas vide, tu copies B4:G4 et puis tu vas voir en B10 Si B10 est vide, tu y copies B4:G4, sinon tu te sers de derL et tu cherches la première cel vide sous B10 et tu y copies B4:G4. ------------------------ Sub AATest_Copie_Virginie() derL = Range("B65536").End(xlUp).Row
If Range("B4") <> "" Then Range("B4:G4").Select Selection.Copy 'Range("B4:G4").Copy eut-il été suffisant?
If Range("B10") <> "" Then Range("B10").Select ActiveSheet.Paste Else:Range("B" & derL + 1).Select ActiveSheet.Paste End If End If End Sub ---------------------- Mais voilà, le cong il n'en veut pas. Un grand merci à tout aideur (euse)
Salut Jacquouille,
L'erreur est dans la condition d'un des If :
If Range("B10") = "" Then
au lieu de <> 0.
Tu peux aussi éviter les sélections de cellules en faisant ainsi :
Sub Machin()
Dim DerL As Long
DerL = [B65536].End(xlUp).Row
If [B4] <> "" Then
If [B10] = "" Then
Range("B4:G4").Copy [B10]
Else
Range("B4:G4").Copy Cells(DerL + 1, 2)
End If
End If
End Sub
A+
Nicolas B.
Jacquouille wrote:
Amis du soir, Bonsoir
Voilà, je me jette une fois de plus à l'eau (coucou Jean-Paul) de la Manche
et je calle dans mon Grand Breton.
Je cherche quelqu'un (e) qui pourrait me correctionner ce quasi chef
d'oeuvre, SVP
---------------
Voilà de quoi on cause.
Si B4 n'est pas vide, tu copies B4:G4 et puis tu vas voir en B10
Si B10 est vide, tu y copies B4:G4, sinon
tu te sers de derL et tu cherches la première cel vide sous B10 et tu y
copies B4:G4.
------------------------
Sub AATest_Copie_Virginie()
derL = Range("B65536").End(xlUp).Row
If Range("B4") <> "" Then
Range("B4:G4").Select
Selection.Copy 'Range("B4:G4").Copy eut-il été suffisant?
If Range("B10") <> "" Then
Range("B10").Select
ActiveSheet.Paste
Else:Range("B" & derL + 1).Select
ActiveSheet.Paste
End If
End If
End Sub
----------------------
Mais voilà, le cong il n'en veut pas.
Un grand merci à tout aideur (euse)
L'erreur est dans la condition d'un des If : If Range("B10") = "" Then au lieu de <> 0.
Tu peux aussi éviter les sélections de cellules en faisant ainsi :
Sub Machin() Dim DerL As Long DerL = [B65536].End(xlUp).Row
If [B4] <> "" Then If [B10] = "" Then Range("B4:G4").Copy [B10] Else Range("B4:G4").Copy Cells(DerL + 1, 2) End If End If End Sub
A+ Nicolas B.
Jacquouille wrote:
Amis du soir, Bonsoir Voilà, je me jette une fois de plus à l'eau (coucou Jean-Paul) de la Manche et je calle dans mon Grand Breton. Je cherche quelqu'un (e) qui pourrait me correctionner ce quasi chef d'oeuvre, SVP --------------- Voilà de quoi on cause. Si B4 n'est pas vide, tu copies B4:G4 et puis tu vas voir en B10 Si B10 est vide, tu y copies B4:G4, sinon tu te sers de derL et tu cherches la première cel vide sous B10 et tu y copies B4:G4. ------------------------ Sub AATest_Copie_Virginie() derL = Range("B65536").End(xlUp).Row
If Range("B4") <> "" Then Range("B4:G4").Select Selection.Copy 'Range("B4:G4").Copy eut-il été suffisant?
If Range("B10") <> "" Then Range("B10").Select ActiveSheet.Paste Else:Range("B" & derL + 1).Select ActiveSheet.Paste End If End If End Sub ---------------------- Mais voilà, le cong il n'en veut pas. Un grand merci à tout aideur (euse)
