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
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