copier des colones sous plusieurs conditions

Bon, d'accord. Quelle est la question ?

C'est du Java ? En tout cas, ce n'est ni du C, ni du C++...

mohamedlion> édite ton topik pour le mettre dans la sous catégorie Autre, s'il te plait. Tu en profiteras pour poser une question !

Pour répondre à la question ce n'est ni du java, ni du c ou C++ c'est du VB.
Bon ma question, c'est comment créer une macro qui me permet de copier trois colonnes sachant que c'est les colonnes que je vais copier correspondent à avril, mai, juin si l'utilisateur saisie la date juin
c'est à dire si l'utilisateur tape une date X alors moi, je vais copier les trois colonnes qui correspondent à la date X, X-1 et X-2

Merci pour votre aide.

je serai toi je me demanderai plus comment arriver à formater la date que va entrer l'utilisateur plutot que de copier les colonnes.
L'utilisateur peut entrer par exemple: 29 juin 2006; 29 juin; 29/06/06; 06/29/06; 29/06/2006 ... je te les faits pas toutes.

Mais si t'arrives à formater cette date, tu en tire le mois (si possible un numéro).si ta colonne 1 correspond au mois de janvier, dans ce cas la colonne qui correspondra au mois de juin sera la 6.
Ce qui fait que si tu stocke ton numéro de mois dans une variable (par exemple, la variable "mois")

range(mois & ":" & (mois-2)).select

selection.copy

...

Il me semble que ca fonctionnera

Beurk

range(mois & ":" & (mois-2)).select

selection.copy

Miam

range(mois & ":" & (mois-2)).copy

Le select provoque des activations souvent inutiles et parfois génantes.

Nova13> Ne te laisse pas impressionner par le nouveau statut de certain   surtout si tu sens que tu as raison  

mohamedlion> Pour savoir comment copier des colonnes, enregistre dans une macro ce que tu ferais à la main, analyse la macro créée (tu y trouveras sans doute le bout de code proposé par Nova) et tu l'adapteras à ton cas.

  je suis surement plus impressionné par les compétences de certains que par leur nouveau statut. Faisant le plus possible attention aux lignes de code que je propose sachant qu'il y aura relecture ET correction par certains

J'ai crée une macro, mais j'ai un petit problème, je pense que c'est tout à fait logique d'avoir un problème puisque j'ai pas définit l'endroit à laquelle la macro va chercher les mois

Dim mois As Date

Sheets("Process Defects").Activate

mois = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa")

Do While Not IsDate(mois)

mois = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa")

Loop

Range(mois & ":" & (mois - 2)).Copy

Sheets("Process Kitchen").Activate

Range("d3").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Le problème est dans la ligne

Range(mois & ":" & (mois - 2)).Copy

franchement, peut être c'est un peu con comme question, mais je débute sur vb et j'ai pas vraiment une idée approfondie dans la programmation.

Donc si quelqu'un à une idée sur le problème ou s'il a une autre idée, merci de me faire partager son opinion.

Sincères salutations,

Merci d'avance pour votre aide

  Tu t'y prends mal.

Mais on va essayer de t'aider. Remarge comment j'utilise MsgBox pour m'aider à réfléchir, et la prochaine fois, fais pareil.

Entre les parenthèses de Range, tu dois mettre des numéros de cellules, des lettres de colonnes ou des numéros de lignes.

Pour sélectionner la cellule A1 :
Pour sélectionner la colonne A :
Pour sélectionner les colonne B, C et D :
Pour sélectionner la ligne 12 :
Pour sélectionner les lignes 3, 4 et 5 :
Pour sélectionner la plage retangulaire entre B1 et D31 :

C'est facile quand même.


Alors maintenant, si tu mets 06/2006 dans mois, que crois-tu obtenir ?
Ben essaye de faire ça :

Dim d as Date

d = "06/2006"

Msgbox d

Tu obtients : 01/06/2006. Logique c'est une date.

Maintenant, essaye ça :

Dim d as Date

d = "06/2006"

d = d - 2

Msgbox d

Tu obtients : 30/05/2006. Logique. Tu a enlevé deux jours.

Maintenant si tu fais :

Dim d as Date

d = "06/2006"

Msgbox d & ":" & (d - 2)

tu vas obtenir : 01/06/2006:30/05/2006 !

ça ne ressemble pas du tout à ce que tu veux, puisque tu cherches à avoir des adresses de colonnes.
Donc ça ne marche pas.

A toi maintenant. Que faire ?
1°) Dans la variable de type date qui contient une date (!), extraire le mois (entre 1 et 12) et mettre le résultat dans une variable.
2°) Utiliser la variable pour construire une adresse du type (m - 2):m.

Enjoy!

Dim M1 As Date 

Dim M2 as Date

Dim M3 as Date

Sheets("Process Defects").Activate 

M1 = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa") 

Do While Not IsDate(M1) 

M1 = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa") 

Loop 

range ("H4") = M1

M2 = "mois(M1)-1"    ' je suis pas sure que c'est la bonne formule mais l'idée c'est de récupérer le mois précédent du date saisie'

range ("I4") = M2

M3 = "mois(M1)-2" 

range ("J4")=M3

Une fois c'est fait, alors pour récupérer les valeurs correspondant à chaque mois, j'utilise recherchev pour chercher les valeurs dans la feuil1 correspondant au mois saisi

Voilà, je pense qu'on peut faire mieux

en fait le soucis, ce n'est pas de copier les colonnes (comme je t'ai dit plus haut), mais de récupérer le mois de la date entrée par l'utilisateur.
car une fois que tu auras récupéré ce mois, tu n'auras aucun mal (quoique   ) à lui faire correspondre un chiffre, pour plus de facilité à la manipulation.
Et ce chiffre pourra être utilisable pour traiter tout ce que tu veux.

L'important c'est d'avoir une variable contenant des données TRES facilement utilisables.

mohamedlion>   Tu t'y prends mal.

Eh, eh... ça viendra avec l'habitude   Mais le secret est bien dans l'utilisation de Mois. Mais pas dans une cellule, en VBA directement !

Allez, au boulot.

Je n'aime pas ce code :

Dim M1 As Date

M1 = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa")  

Do While Not IsDate(M1)  

  M1 = InputBox("sisissez la date pour laquelle vous voulez mettre à jour votre fichier" & Chr(10) & "mois-aaaa")  

Loop

Pourquoi ? Parce ce si je tape "TOTO" au lieu d'une date, ça plante. Je préfère celui-là : (avis personnel)

Dim s As String

Dim m As Integer ' C'est un entier que tu veux au fait !!!

s = ""

Do While Not IsDate(s)  

  s = InputBox("Saisissez la date ..blabla")  

  If s = "" Then ' L'utilisateur a cliqué sur ANNULER

    MsgBox "Bye Bye" ' // ou pas....

    Exit Sub

  End If

Loop

 
m = Month(s) ' // En Anglais évidemment :) 

' // Gagné !!!

merci beaucoup pour votre aide notamment pour Zeb    

Dim s As String 

Dim s1 as String

Dim s2 as string

Dim m As Integer 

Dim m1 as Integer 

Dim m2 as Integer

s = "" 

Do While Not IsDate(s)   

  s = InputBox("Saisissez la date pour laquelle vous voulez mettre à jour votre fichier")   

  If s = "" Then 

    MsgBox "Bye Bye" ' // ou pas.... 

    Exit Sub 

  End If 

Loop 

m = Month(s) 

m1=m-1

m2=m-2

s1=month(m1)

s2=month(m2)

range("h4")=s

range("I4")=s1

range("J4")=s2

mon petit problème c'est que je sais pas comment afficher l'année avec le mois.
le deuxième petit problème c'est comment afficher les infos correspondant à chaque colonne. (J'ai pensé à utiliser recherchev : une fois le mois est saisie alors il va chercher toutes les infos dans l'autre feuille) mais je pense qu'il y a mieux.

  Je comprends de moins en moins ce que tu cherches à faire.

je t'explique

janvier 2006 février 2006 mars 2006 avril 2006 .........
12 52 16 17
10 14 18 22
11 48 75 30
alors je vais demander à l'utilisateur de saisir une date pour laquelle il veut metter à jour son fichier.
Exemple:
l'utilisateur a saisi le mois mars 2006, alors à ce moment là je vais copier toute la colonne mars 2006, février 2006 et juin 2006 .
Alors ce que j'arrive pas à le faire c'est comment récupérer toutes les infos une fois que l'utilisateur a sais une date
Voià, j'espère que j'étais clair

excusé moi, j'ai fait une erreur.
lorsque il saisi le mois de mars, je vais copier toute la colonne mars 2006 , février 2006 et janvier 2006

Ok. Alors pourquoi nous fais-tu tout ce bazar ?

Voilà, je te propose ce qui suit. Et je te demande de bien le comprendre avant de t'en servir et de poser d'autres questions  

Dim s As String

Dim d As Date

 
s = ""

 
Do While Not IsDate(s)

  s = InputBox("Saisissez la date pour laquelle vous voulez mettre à jour votre fichier")

  If s = "" Then

    MsgBox "Bye Bye" ' // ou pas....

    Exit Sub

  End If

Loop

 
d = CDate(s)

d = DateSerial(Year(d), Month(d), 1)

d = DateAdd("m", -2, d)

 
For i = 1 To 256

  If IsDate(Cells(<numéro de ligne des dates>, i).Value) Then

    If CDate(Cells(<numéro de ligne des dates>, i).Value) = d Then

      ' // Trouvé !!!!!

 
      < ici demander à MohamedLion de mettre des trucs utiles, 

        genre la copie de cette colonne et des trois suivantes en une seule fois, 

        merci >

 
      Exit For

    End If

  End If

Next

Sincèrement, j'ai pas bien compris ton programme. c'est pour cette raison, j'ai essayé de faire une petite recherche sur internet.
Je vais expliquer la signification de ses 3 fonctions (ça peut être utilie pour un autre utilisateur)
on commence par CDate()
Alors Cdate est une fonction qui sert à convertir une date valide à un résultat de type date

Exemple

d="22 avril 2001"

if IsDate(d) then 

document.write(CDate(d))

end if

output

2/22/2001

Pour la fonction DateSerial()
DateSerial(year,month,day) : it is a function to return a variant of subtype date for a specified year, month and day

Exemple

document.write(DateSerial(2000,2,3))

output

3/2/2000

Finalement pour DateAdd()

DateAdd(interval,number,date)

interval : yyyy : année

             q      : trimestre

             m     : mois

             d      : jour

             w      : weekend

             h      : heure

             n      : minute

             s      : seconde

number:ici on doit ajouter un nombre, il peut être positive pour désigner une date en futur comme il peut être négative pour désigner une date au passé

 
Exemple

si je veux ajouter un mois à la date 31 janvier 2005

document.write(DateAdd("m",1,"31-Janvier 2005"))

output

29/2/2005

j'espère que j'étais clair

Par contre j'ai pas bien compris cette partie

For i = 1 To 256 

  If IsDate(Cells(<numéro de ligne des dates>, i).Value) Then 

    If CDate(Cells(<numéro de ligne des dates>, i).Value) = d Then 

      ' // Trouvé !!!!! 

 
      < ici demander à MohamedLion de mettre des trucs utiles,  

        genre la copie de cette colonne et des trois suivantes en une seule fois,  

        merci >

¨
Pour moi, si j'applique cette partie de programme

Dim s As String 

Dim d As Date 

 
s = "" 

 
Do While Not IsDate(s) 

  s = InputBox("Saisissez la date pour laquelle vous voulez mettre à jour votre fichier") 

  If s = "" Then 

    MsgBox "Bye Bye" ' // ou pas.... 

    Exit Sub 

  End If 

Loop 

 
d = CDate(s) 

d = DateSerial(Year(d), Month(d), 1) 

d = DateAdd("m", -2, d)

alors d va être affecté au mois s-2
c'est à dire si l'utilisateur tape 1 juin 2006 alors d va être égale à 1 avril 2006
voilà pour la suite, j'ai pas bien compris
merci de m'expliquer un peu ce que tu veux dire par le reste

Si je saisie Juillet 2006 tu veux copier les colonnes Mai, Juin et Juillet. C'est bien ce que tu veux faire ?

oui, c'est bien ça.
pour moi en utilisant ce petit programme
[/cpp]
For i = 1 To 256
If IsDate(Cells(3,i).Value) Then
If CDate(Cells(3,i).Value) = d Then
[/cpp]
on va copier uniquement la colonne (s-2) puisqu'on a affecté d à (s-2)

d = CDate(s)  

d = DateSerial(Year(d), Month(d), 1)  

d = DateAdd("m", -2, d)

La dernière valeur affecté à d c'est DateAdd("m",-2,d)-->donc d va prendre la valeur s-2
voilà comment je vois les choses, peut être je dis des conneries mais dans tous les cas je vois comme ça les choses.
Merdci de me clarifier

Une fois que tu es sur la première cellule, sers-toi de la fonction Offset.

est ce que tu peux m'expliquer un peu la fonction, offset

est ce qu'il y a quelqu'un qui a une idée là dessus

Sub Macro2()

Dim s As String

Dim d As Date

Dim mois As Date

Dim i As Integer

Dim nbmois As Integer

 
Worksheets("Process Defects").Activate

 
s = " "

Do While Not IsDate(s)

   s = InputBox("saisissez la date à laquelle vous vouler mettre à jour votre fichier")

       If s = " " Then

          MsgBox " Bye Bye "

          Exit Sub

       End If

Loop

 
d = CDate(s)

d = DateSerial(Year(d), Month(d), 1)

d = DateAdd("m", -2, d)

 
For nbmois = 0 To 2

    mois = DateAdd("m", nbmois, d)

         For i = 0 To 10

             If IsDate(Cells(20, 4 + 2 * i)) Then

                If CDate(Cells(20, 4 + 2 * i)) = mois Then

                   Range("cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)").Copy

                   Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial

                End If

             End If

         Next i

Next nbmois

 
End Sub

j'ai un problème dans cette ligne
[cpp
Range("cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)").Copy
[cpp]
est ce qu'il y a quelqu'un qui a une idée sur l'origine ou bien la cause du problème

j'ai un problème dans cette ligne

Range("cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)").Copy

tu demande de copier la cellule qui porte le nom
"cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)"
peut être faut t'il enlever les guillemets

A chaque fois que tu(*) as un problème, utilise MsgBox ou Debug.Print pour afficher juste avant, ce que tu crois être bon.

(*) C'est valable pour mohamedlion et pour tout le monde !

T'as raison Batchy, c'était des problèmes de guillemets

Sub Macro2() 

Dim s As String 

Dim d As Date 

Dim mois As Date 

Dim i As Integer 

Dim nbmois As Integer 

 
Worksheets("Process Defects").Activate 

 
s = " " 

Do While Not IsDate(s) 

   s = InputBox("saisissez la date à laquelle vous vouler mettre à jour votre fichier") 

       If s = " " Then 

          MsgBox " Bye Bye " 

          Exit Sub 

       End If 

Loop 

 
d = CDate(s) 

d = DateSerial(Year(d), Month(d), 1) 

d = DateAdd("m", -2, d) 

 
For nbmois = 0 To 2 

    mois = DateAdd("m", nbmois, d) 

         For i = 0 To 10 

             If IsDate(Cells(20, 4 + 2 * i)) Then 

                If CDate(Cells(20, 4 + 2 * i)) = mois Then 

                   MsgBox " " & mois

                   Range("cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)").Copy 

                   Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial 

                End If 

             End If 

         Next i 

Next nbmois

End Sub
ça marche, bien maintenant
Merci encore une fois pour votre aide
A bientôt si jamais ça coince    

désolé, j'ai oublié d'enlever les guillemets

Sub Macro2()  

Dim s As String  

Dim d As Date  

Dim mois As Date  

Dim i As Integer  

Dim nbmois As Integer  

 
Worksheets("Process Defects").Activate  

 
s = " "  

Do While Not IsDate(s)  

   s = InputBox("saisissez la date à laquelle vous vouler mettre à jour votre fichier")  

       If s = " " Then  

          MsgBox " Bye Bye "  

          Exit Sub  

       End If  

Loop  

 
d = CDate(s)  

d = DateSerial(Year(d), Month(d), 1)  

d = DateAdd("m", -2, d)  

 
For nbmois = 0 To 2  

    mois = DateAdd("m", nbmois, d)  

         For i = 0 To 10  

             If IsDate(Cells(20, 4 + 2 * i)) Then  

                If CDate(Cells(20, 4 + 2 * i)) = mois Then  

                   MsgBox " " & mois 

                   Range(cells(20, 4 + 2 * i),cells(200, 5 + 2 * i)).Copy  

                   Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial  

                End If  

             End If  

         Next i  

Next nbmois

 
End Sub

je veux faire un collage spécial des valeurs copier
voilà ma proposition mais ça marche pas

Sub Macro2()

Dim s As String

Dim d As Date

Dim mois As Date

Dim i As Integer

Dim nbmois As Integer

 
Worksheets("Process Defects").Activate

 
s = " "

Do While Not IsDate(s)

   s = InputBox("saisissez la date à laquelle vous vouler mettre à jour votre fichier sous forme mois-aaaa")

       If s = " " Then

          MsgBox " Bye Bye "

          Exit Sub

       End If

Loop

 
d = CDate(s)

d = DateSerial(Year(d), Month(d), 1)

d = DateAdd("m", -2, d)

 
For nbmois = 0 To 2

    mois = DateAdd("m", nbmois, d)

         For i = 0 To 10

             If IsDate(Cells(20, 4 + 2 * i)) Then

                If CDate(Cells(20, 4 + 2 * i)) = mois Then

                   MsgBox " " & mois

                   Range(Cells(20, 4 + 2 * i), Cells(200, 5 + 2 * i)).Select

                   Selection.Copy

                   [b]Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

                   :=False, Transpose:=False[/b]

                End If

             End If

         Next i

Next nbmois

 
End Sub

Grr...   Dans une macro, ne pas se servir de Select ni de Selection
Ne pas écrire (ligne 29-30) :

Range(...).Select

Selection.fonction

Mais directement

Range(...).fonction

Sinon, pourquoi dis-tu que ça ne marche pas  
Qu'est-ce qui ne marche pas ? Quel est le msg d'erreur ?

si je remplace cette ligne

Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 

                   :=False, Transpose:=False

par celle-là

Worksheets("Process Kitchen").Cells(3, 4 + 2 * nbmois).PasteSpecial

la macro marche bien.
donc le problème c'est comment faire un collage spétial valeurs dans une macro
si je mets la première ligne alors il m'affiche un message erreur d'exécution 1004 les cellules fusionnées doivent être identique

collage spétial (sic) valeurs -->

<..>.PasteSpecial Paste:=xlPasteValues

les cellules fusionnées doivent être identique (sic) -->
Si tu as des fantaisies dans une page et que tu n'en parles pas, comment veux-tu qu'on le devine  

Fais en sorte qu'il n'y ait pas de cellules fusionnées au départ ou à l'arrivée.

T'as raison , il y avait une deux cellules qi étaient fusionnées.
Merci, ça marche maintenant
A bientôt, si ça coince