Copier cellule depuis un autre fichier Résolu

Question

Bonjour,  


Alors j'ai un tableau de ce type: 
JAN -W01 - W02 -W03 - W04 - W05 - FEV - W06 -W07 ... 

Pour ma combobox j'ai fais cela: 

Private Sub UserForm_Initialize() 
Dim i 
    For i = 9 To 75 
        ComboBox1.AddItem Sheets("Data Entry").Cells(7, i) 
    Next 

End Sub

Je ne veux pas selectionner les noms des mois. 

- je me tape les 57 semaines a la mano 
- je fais un "if" + noms des mois et je dis que je ne les selectionne pas 
- je dis que je selectionne de la 2eme colonne a la 6 et de la 7eme a la 12 etc. 

qu'est-ce qui est le mieux? 

a la mano je vais y arriver, mais pour les autres solutions j'aurai besoin d'aide. 

Ou encore une autre solution.   

Merciiii 
Configuration: Windows XP / Internet Explorer 7.0

pijaku · Answer

Salut,
1- je me tape les 57 semaines a la mano  Mmmh intéressant! Sur ma planète et dans mon pays je ne compte que 52 semaines... de toutes façons cette méthode "à la main" est proscrite d'emblée.
2- je fais un "if" + noms des mois et je dis que je ne les selectionne pas  Voilà qui est intéressant! C'est, selon moi, la meilleure méthode. Ou plutôt que de ne pas sélectionner les "mois", peut être serais ce plus aisé de sélectionner uniquement les semaines? Même résultat...
Comme ceci, si tes semaines commencent tous par un "W" et qu'aucun mois ne commence par un "W" (comme le mois de Waout par exemple...)
Private Sub UserForm_Initialize()
Dim Col As Integer
    For Col = 9 To 75
        If Left(Sheets("Data Entry").Cells(7, Col), 1) = "W" Then
            ComboBox1.AddItem Sheets("Data Entry").Cells(7, Col)
        End If
    Next Col
End Sub
--> J'ai au passage corrigé deux horreurs (erreurs pardon) qui n'en sont pas vraiment mais qui sont tout de même plus VBA... Variables = nom d'au moins 3 lettres (Col au lieu de i) et il convient de leur attiruber un type (= Integer).
--> !!! Ne fonctionnera pas si un espace inutile farfelu et superflu se glisse avant le W de ta semaine !!!
3- je dis que je selectionne de la 2eme colonne a la 6 et de la 7eme a la 12 etc  Faisable, mais fastidieux! inutile si la solution 2 fonctionne.
Ca te va?

zertozerto · Answer

1)
57... parce que je suis innovant!
... ou parce que j'ai mis au hasard

2)
Oui c'est la meme idée en fait, mais ta solution est mieux je pense.

Je débute en codage, donc merci de tes remarques :)
C'est comme ca qu'on apprend :)
il n'y a pas de raison qu'un "espace" se glisse, personne ne doit toucher ses valeurs. Ha moins que quelqu'un d'innovant comme moi souhqite créer la 53 eme semaine ;-)

3)
Ca me va tres bien.

Merci beaucoup

zertozerto · Answer

Je réouvre le sujet:

alors voila mon code:

Dim MonMois As String
Dim mavariable As String

'------ Look for the column of the current week ------
Dim I As Integer
Dim Colweek As Integer
    
        For I = 4 To 73
             If Worksheets("TMUK Detail I-O WIP").Cells(4, I) = mavariable Then
                     Colweek = Column.Active
             End If
        Next I
    
'------ Look for the column of the current Month ------
    Dim J As Integer
        For J = Colweek To 10
            If Left(Sheets("TMUK Detail I-O WIP").Cells(4, J), 1) <> "W" Then
MonMois = ActiveCell.Value
MsgBox "on a " & MonMois
        End If
        Next J

a partir de la colonne ou je trouve MaVariable (colonne appellé Colweek)
je veux chercher de cette colonne a 7, l'unique valeur qui ne commence pas par W.
et cette valeur je veux la mettre dans la variable MonMois.

cela compile plus a :
Colweek = Column.Active
>>> Object required

Je dois avoir des problemes dans la declaration des variables egalement.

zertozerto · Answer

Yep

alors finalement je suis parti sur une seule boucle, plus logique.
J'ai réussi à faire ce que je voulais  de cette maniere:

    Dim I As Integer
    Dim K As Integer
    
    For I = 4 To 73
        If Worksheets("TMUK Detail I-O WIP").Cells(4, I) = mavariable Then
            K = I
                        
        Dim J As Integer
        Dim L As Integer
             For J = K To K + 6
                If Left(Sheets("TMUK Detail I-O WIP").Cells(4, J), 1) <> "W" Then
                    MonMois = Sheets("TMUK Detail I-O WIP").Cells(4, J).Value
                    MsgBox "mon mois = " & MonMois & "J = " & J
                    L = J
                End If
            Next J
        End If
        'Exit For
    Next I

mes mois sont en fonction de la variable L
mes semaines sont en fonction de la variable K

Ca marche comme cela :)

Copier cellule depuis un autre fichier

4 réponses

Votre réponse

Discussions similaires

Newsletters