Pb Sélection conditionnelle de cellules et copie dans autres feuilles
2 réponses
axel.thieullent
Bonjour,
Je suis d=E9butant et un peu perdu
Voici mon pb
Dans une premi=E8re feuille "Choix" J'ai deux colonnes: l'une (colonne
A) listant un ensemble de produits
et la seconde (colonne B) indiquant la quantit=E9 de chaque produit.
J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes
seulement les produits dont la quantit=E9 est >=3D =E0 1
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
defluc
a écrit :
Bonjour, Je suis débutant et un peu perdu Voici mon pb
Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne A) listant un ensemble de produits et la seconde (colonne B) indiquant la quantité de chaque produit.
J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes seulement les produits dont la quantité est >= à 1
Merci pour votre aide
Sub Macro1() Dim TmpStr As String Dim Lin1, Lin2 As Integer TmpStr = "QQCh" Lin1 = 1 Lin2 = 1 Do If Sheets(1).Cells(Lin1, 2).Value >= 1 Then Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1) Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2) Lin2 = Lin2 + 1 End If TmpStr = Sheets(1).Cells(Lin1, 1) Lin1 = Lin1 + 1 Loop Until TmpStr = "" End Sub
axel.thieullent@gmail.com a écrit :
Bonjour,
Je suis débutant et un peu perdu
Voici mon pb
Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne
A) listant un ensemble de produits
et la seconde (colonne B) indiquant la quantité de chaque produit.
J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes
seulement les produits dont la quantité est >= à 1
Merci pour votre aide
Sub Macro1()
Dim TmpStr As String
Dim Lin1, Lin2 As Integer
TmpStr = "QQCh"
Lin1 = 1
Lin2 = 1
Do
If Sheets(1).Cells(Lin1, 2).Value >= 1 Then
Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1)
Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2)
Lin2 = Lin2 + 1
End If
TmpStr = Sheets(1).Cells(Lin1, 1)
Lin1 = Lin1 + 1
Loop Until TmpStr = ""
End Sub
Bonjour, Je suis débutant et un peu perdu Voici mon pb
Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne A) listant un ensemble de produits et la seconde (colonne B) indiquant la quantité de chaque produit.
J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes seulement les produits dont la quantité est >= à 1
Merci pour votre aide
Sub Macro1() Dim TmpStr As String Dim Lin1, Lin2 As Integer TmpStr = "QQCh" Lin1 = 1 Lin2 = 1 Do If Sheets(1).Cells(Lin1, 2).Value >= 1 Then Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1) Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2) Lin2 = Lin2 + 1 End If TmpStr = Sheets(1).Cells(Lin1, 1) Lin1 = Lin1 + 1 Loop Until TmpStr = "" End Sub
axel.thieullent
Merci !
defluc a écrit :
a écrit : > Bonjour, > Je suis débutant et un peu perdu > Voici mon pb > > Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne > A) listant un ensemble de produits > et la seconde (colonne B) indiquant la quantité de chaque produit. > > J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes > seulement les produits dont la quantité est >= à 1 > > Merci pour votre aide > Sub Macro1() Dim TmpStr As String Dim Lin1, Lin2 As Integer TmpStr = "QQCh" Lin1 = 1 Lin2 = 1 Do If Sheets(1).Cells(Lin1, 2).Value >= 1 Then Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1) Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2) Lin2 = Lin2 + 1 End If TmpStr = Sheets(1).Cells(Lin1, 1) Lin1 = Lin1 + 1 Loop Until TmpStr = "" End Sub
Merci !
defluc a écrit :
axel.thieullent@gmail.com a écrit :
> Bonjour,
> Je suis débutant et un peu perdu
> Voici mon pb
>
> Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne
> A) listant un ensemble de produits
> et la seconde (colonne B) indiquant la quantité de chaque produit.
>
> J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes
> seulement les produits dont la quantité est >= à 1
>
> Merci pour votre aide
>
Sub Macro1()
Dim TmpStr As String
Dim Lin1, Lin2 As Integer
TmpStr = "QQCh"
Lin1 = 1
Lin2 = 1
Do
If Sheets(1).Cells(Lin1, 2).Value >= 1 Then
Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1)
Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2)
Lin2 = Lin2 + 1
End If
TmpStr = Sheets(1).Cells(Lin1, 1)
Lin1 = Lin1 + 1
Loop Until TmpStr = ""
End Sub
a écrit : > Bonjour, > Je suis débutant et un peu perdu > Voici mon pb > > Dans une première feuille "Choix" J'ai deux colonnes: l'une (colonne > A) listant un ensemble de produits > et la seconde (colonne B) indiquant la quantité de chaque produit. > > J'aimerai,dans une seconde feuille, faire apparaitre en deux colonnes > seulement les produits dont la quantité est >= à 1 > > Merci pour votre aide > Sub Macro1() Dim TmpStr As String Dim Lin1, Lin2 As Integer TmpStr = "QQCh" Lin1 = 1 Lin2 = 1 Do If Sheets(1).Cells(Lin1, 2).Value >= 1 Then Sheets(2).Cells(Lin2, 1) = Sheets(1).Cells(Lin1, 1) Sheets(2).Cells(Lin2, 2) = Sheets(1).Cells(Lin1, 2) Lin2 = Lin2 + 1 End If TmpStr = Sheets(1).Cells(Lin1, 1) Lin1 = Lin1 + 1 Loop Until TmpStr = "" End Sub
