Balayer une ligne et créer une boucle
rs4
Messages postés
1
Statut
Membre
-
rs4 -
rs4 -
Bonjour,
je suis super débutant et je souhaite créer une macro qui effectu un balayage sur une ligne de la cellule A1 à A15 par exemple.
si A1 contient une valeur alors créer un nouvel onglet et le nommer avec le contenu de la cellule A2.
sinon si A1 ne contient rien alors passer à la ligne suivante.
Voilà pour le début si vous pouvez m'aider ca serait super.
merci d'avance.
je suis super débutant et je souhaite créer une macro qui effectu un balayage sur une ligne de la cellule A1 à A15 par exemple.
si A1 contient une valeur alors créer un nouvel onglet et le nommer avec le contenu de la cellule A2.
sinon si A1 ne contient rien alors passer à la ligne suivante.
Voilà pour le début si vous pouvez m'aider ca serait super.
merci d'avance.
A voir également:
- Balayer une ligne et créer une boucle
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
4 réponses
Bonjour,
Petite rectification, le mot clé Empty n'est valable que pour une variable Variant.
Et un pti coup de main pour la macro...
A+
Petite rectification, le mot clé Empty n'est valable que pour une variable Variant.
Et un pti coup de main pour la macro...
Sub gg()
Dim Cell As Range
Sheets("feuil1").Select
Range("A1:A15").Select
For Each Cell In Selection
If Cell.Value <> "" Then
Sheets.Add
ActiveSheet.Name = Cell.Value
End If
Next Cell
End Sub
A+
Salut rs4,
'Pour balayer ta plage A1:A15, utilise For each ... Next
Dim Cellule as range
Range("A1:A15").select
For each Cellule in selection
'(instructions)
Next Cellule
'pour tester qu'une cellule n'est pas vide
if Not Cellule.value = empty then
'(instructions)
end if
'pour créer et nommer un onglet : vois ce que ça donne avec Outils/Macro/Nouvelle Macro
Avec ça, même super débutant, tu devrais résoudre ton problème.
A suivre...
'Pour balayer ta plage A1:A15, utilise For each ... Next
Dim Cellule as range
Range("A1:A15").select
For each Cellule in selection
'(instructions)
Next Cellule
'pour tester qu'une cellule n'est pas vide
if Not Cellule.value = empty then
'(instructions)
end if
'pour créer et nommer un onglet : vois ce que ça donne avec Outils/Macro/Nouvelle Macro
Avec ça, même super débutant, tu devrais résoudre ton problème.
A suivre...
Salut,
exactement le même principe que précédement (message de lermite) :
sélectionne ta plage (colonne Réserves)
Boucle For each ... next
test If Cellule.value="Oui"
sauf que le nom de ta nouvelle feuille sera Cellule.offset(0,-1).value (la valeur de la colonne -1)
A suivre...
exactement le même principe que précédement (message de lermite) :
sélectionne ta plage (colonne Réserves)
Boucle For each ... next
test If Cellule.value="Oui"
sauf que le nom de ta nouvelle feuille sera Cellule.offset(0,-1).value (la valeur de la colonne -1)
A suivre...
Si je peux abuser je souhaite affiner le point suivant :
- Comment rajouter une variable dans mon programme, partons du principe qu'une des colonnes de mon tableau se nomme FOURNISSEUR.
FOURNISSEUR RESERVES CAUSES
X oui retard
Y
Si la cellule RESERVES contient quelque chose alors création d'un onglet que l'on nomme non plus par le contenu de la cellule en question mais par le nom du fournisseur concerné.
et ce toujours sur la première macro.
Merci d'avance