vba problème pour définir une adresse relative

[Rafilo13]

Bonjour à tous,

J'ai un fichier que je dois automatiser et dans lequel le nombre de lignes est variable.

Je voulais donc ecrire la formule dans la première ligne et la reproduire jusqu'a la dernière ligne.

J'ai essayé deux types de méthode mais je n'y arrive pas, je dois avoir loupé quelque chose.

En piece jointe un bout de fichier avec la partie de la macro qui me pose problème et les explications :

Merci par avance a tous

 

[Eric 45]

Re : vba problème pour définir une adresse relative

Bonjour à tous
Bonjour Rafilo13

Si j'ai bien compris, essaie ceci :

Sub NormalisationDonnéesPDR1()
Dim derlign As Integer  'ou long
        Columns("B:B").NumberFormat = "0"
        derlign = Range("A65536").End(xlUp).Row
        Range("B2:B" & derlign) = "=COUNTIF(R2C1:R" & derlign & "C1,RC[-1])"
End Sub

Dis nous

Eric

 

[Rafilo13]

Re : vba problème pour définir une adresse relative

Bonjour Eric 45,

Merci c'est au poil.

Bonne journée et encore merci.