Bonjour,

j utilise une fonction IsNumeric pour tester si ma cellule possede une valeur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim i As Integer
    Line = Worksheets("Primavera").Cells(Rows.Count, "C").End(xlUp).Row
 
    For j = 2 To Line + 1
    For i = 12 To 263
    MyVar = Worksheets("Main").Range("P" & i).Value
    MyCheck = IsNumeric(MyVar)
    If MyCheck = True Then
...
...
...
 
    End If
    Next i
    Next j
End Sub
Premiere question: y a t il un autre moyen de savoir si la cellule possede une valeur numerique?


Mon but etant apres que si la cellule possede une valeur numerique, de remplir un tableau sur une autre feuille

Par exemple : la cellule p12 = 777
je veux copier le range ("A12:B12"), le range("P12") sur la feuille contenant le tableaux

J ai essaye ce code place dans celui au dessus:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
worksheet("sheet1").range ("A"&i &":B"&i).value = worksheet("sheet2").range("A"&j &":B"&j).value
Mais sa me mets la derniere valeur c est tout c est a dire la ligne 263


Une idee?
Merci
Tom