Discussion :

[tomy7]

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

[ouskel'n'or]

J'ai compris ton pb
Pourquoi fais-tu deux boucles ? Une seule suffit

Code :

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

1
2
3
4
5
6
Sub test()
    For j = 2 To Worksheets("feuil2").Range("A65536").End(xlUp).Row
        i = j + 12
        Worksheets("feuil4").Range("A" & i & ":C" & i).Value = Worksheets("feuil2").Range("A" & j & ":C" & j).Value
    Next j
End Sub

Tu sauras adapter ?

[tomy7]

Bonjour Ouskel'Nor ,

merci pour ton premier code mais peux tu regarder mon fichier. j aimerai ton avis.

Merci
Bonne journee

CDT
Tom
Pièce jointe 28318

[ouskel'n'or]

Tu as plusieurs solutions mais ma préférée serait une barre d'outils temporaire avec un bouton qui lancerait la macro. Ainsi, pas de bouton sur la feuille, pas de problème pour gérer ta plage de cellules.
Lors de sa création, tu peux définir l'argument Tempory qui permet de masquer la barre à la fermeture du fichier.

Temporary Argument de type Variant facultatif. Affectez-lui la valeur True s'il s'agit d'une barre temporaire. Les barres de commandes temporaires sont supprimées lors de la fermeture de l'application. La valeur par défaut est False.

Tu peux regarder dans la FAQ, au chapitre "Comment créer une barre d'outils personnelle par macro ?" ou ici
Bon après-midi

[tomy7]

Merci ousk pour toutes ces informations je vais me debrouiller avec ca...
bonne apres midi