bonjour,
le forum m'apporte beaucoup de solutions. Merci à tous les contributeurs.
Mais là je bloque .
dans la séquence suivante j'ai une erreur 13 à la ligne do while ActiveCell.Value. Je suppose que c'est dû à la valeur qui doit être recopiée car la boucle marche pour les petits montants.
Je ne sais pas comment modifier . Merci par avance
n = 1 'numéro de colonne pour montant de PSAR à copier
range("a3").Select
If Cells(3, n).Value = "" Then
ActiveSheet.Paste
Else
Do While ActiveCell.Value <> "" erreur 13:incompatibilité de type
Selection.Offset(0, 1).Select
Loop
ActiveSheet.Paste
End If
End If
m = m + 1
n = n + 1
le forum m'apporte beaucoup de solutions. Merci à tous les contributeurs.
Mais là je bloque .
dans la séquence suivante j'ai une erreur 13 à la ligne do while ActiveCell.Value. Je suppose que c'est dû à la valeur qui doit être recopiée car la boucle marche pour les petits montants.
Je ne sais pas comment modifier . Merci par avance
n = 1 'numéro de colonne pour montant de PSAR à copier
range("a3").Select
If Cells(3, n).Value = "" Then
ActiveSheet.Paste
Else
Do While ActiveCell.Value <> "" erreur 13:incompatibilité de type
Selection.Offset(0, 1).Select
Loop
ActiveSheet.Paste
End If
End If
m = m + 1
n = n + 1