Discussion :

[tibs1502]

Bonjour,

J'ai un tableau Excel de la forme à gauche et je voudrais à droite


A B | A B
DURANT 0001 | DURANT 0001
DURANT | DURANT 0001
DURANT | DURANT 0001
DUPONT 0231 | DUPONT 0231
DUPONT | DUPONT 0231
MARCHAND 3713 | MARCHAND 3713


...

J'ai commencé en étirant mais j'ai plus de 1000 clique à faire, donc si vous pouvez m'aider à éviter ce nombre de clique inutile, je vous en serai reconnaissant .

Je pensais à quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim i As Integer
   For  i = 1 To 500
       If Cells(i,2) <>"" Then 
         Cells(i,2).Select
         Selection.AutoFill Destination:= ?????
       End If
   Next i

Merci d'avance pour votre aide

Cordialement

[jfontaine]

Bonjour,

Plutôt quelques chose comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Rg As Range
Dim i As Long
 
For i = 1 To 500
    If Range("B" & i).Value <> "" Then
        If Rg Is Nothing Then
            Set Rg = Range("B" & i)
        Else
            Set Rg = Union(Rg, Range("B" & i))
        End If
    End If
Next i
 
Rg.Select

[tibs1502]

Merci pour ta réponse, cela fonctionne. Je n'avais pas accès à Internet plutôt.

Entre temps j'ai cherché avec une fonction =SI

J'ai crée une nouvelle colonne F et fait la fonction suivante en F3

=si (E3="";F2,E3) après avoir copier E2 dans F2 et j'ai étendu.

Mais encore merci pour t'être penché sur mon problème.

Cordialement