Macro pour copier et coller à la suite

[WITER]

Re bonjour, je cherche une macro pour copier des données d'une feuille excel et les recopier à la suite de la derniere ligne non vide dans une autre feuille excel.
Attention j'ai déja dans mon ficher ces 2 macroS. Il faudrais donc quelle soit compatible.

Function CoulFond(champ As Range, couleurFond, Txt)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond And InStr(1, c.Value, Txt, vbTextCompare) <> 0 Then
temp = temp + 1
End If
Next c
CoulFond = temp
End Function
Function Coulint(ch As Range) As Integer
Coulint = ch.Interior.ColorIndex
End Function

Merci encore pour votre aide indispensable

 

[pierrejean]

Re : Macro pour copier et coller à la suite

bonsoir

il faut ecrire soit

Range("A1:AH60").Select

soit

Rows(1:60).Select

 

[WITER]

Re : Macro pour copier et coller à la suite

Nan , toujour pas,

méme en remplacant par

Range("A1:AH60").Select


ou

Rows(1:60).Select

ca plante toujour à "Range("A1:AH60").Select" ou "Rows(1:60).Select"
quand je la lance avec le bouton mais pas quand je la lance avec "executer".
A mon avis ya kekchoze à modifier quand on utilise cette macro avec un bouton

 

[Pierrot93]

Re : Macro pour copier et coller à la suite

Bonsoir Witer, PierreJean,

Ton bouton est il bien sur la même feuille et dans le même classeur que les cellules que tu veux selectionner et ton code est placé dans quel module ?

@+