Je possède un tableau avec plusieurs et lignes et plusieurs colonnes.
Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve
des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la
ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4
ligne 15 pour E15 : de B15 à E15
ligne 71 pour E71 : de B71 à E71
ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par
l'utilisteur du tableau.
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
poypoy
Bonjour Harry,
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Bonjour Harry,
Le code suivant devrait faire l'affaire :
si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur
finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row
If Not Cells(n, 5) = Empty Then
If p = 0 Then
Set rgused = Range(Cells(n, 1), Cells(n, 5))
p = 1
Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5)))
End If
End If
Next n
Sheets("recap").Select
rgused.Copy
Range("A1").PasteSpecial
Set rgused = Nothing
End Sub
Cordialement
Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes.
Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve
des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la
ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4
ligne 15 pour E15 : de B15 à E15
ligne 71 pour E71 : de B71 à E71
ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par
l'utilisteur du tableau.
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
poypoy
Grunt !!! j'ai repondu à un message déjà posté et répondu snifff je trouvais bien que celui-là était à mon niveau (et donc à celui de bon nombres de personnes ^^)
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Grunt !!!
j'ai repondu à un message déjà posté et répondu
snifff je trouvais bien que celui-là était à mon niveau (et donc à celui de
bon nombres de personnes ^^)
Cordialement
Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes.
Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve
des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la
ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4
ligne 15 pour E15 : de B15 à E15
ligne 71 pour E71 : de B71 à E71
ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par
l'utilisteur du tableau.
Grunt !!! j'ai repondu à un message déjà posté et répondu snifff je trouvais bien que celui-là était à mon niveau (et donc à celui de bon nombres de personnes ^^)
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Harry
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir comment rajouté cette instruction? sans les rendre actives et sans voir ma feuille récap active, que tous soit transparent.
Merci
cdlt.
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir
comment rajouté cette instruction? sans les rendre actives et sans voir ma
feuille récap active, que tous soit transparent.
Merci
cdlt.
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire :
si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur
finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row
If Not Cells(n, 5) = Empty Then
If p = 0 Then
Set rgused = Range(Cells(n, 1), Cells(n, 5))
p = 1
Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5)))
End If
End If
Next n
Sheets("recap").Select
rgused.Copy
Range("A1").PasteSpecial
Set rgused = Nothing
End Sub
Cordialement
Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes.
Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve
des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la
ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4
ligne 15 pour E15 : de B15 à E15
ligne 71 pour E71 : de B71 à E71
ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par
l'utilisteur du tableau.
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir comment rajouté cette instruction? sans les rendre actives et sans voir ma feuille récap active, que tous soit transparent.
Merci
cdlt.
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Harry
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir comment rajouté cette instruction? sans les rendre actives et sans voir ma feuille récap active, que tous soit transparent.
Merci
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
MERCI pour votre aide
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir
comment rajouté cette instruction? sans les rendre actives et sans voir ma
feuille récap active, que tous soit transparent.
Merci
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire :
si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur
finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row
If Not Cells(n, 5) = Empty Then
If p = 0 Then
Set rgused = Range(Cells(n, 1), Cells(n, 5))
p = 1
Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5)))
End If
End If
Next n
Sheets("recap").Select
rgused.Copy
Range("A1").PasteSpecial
Set rgused = Nothing
End Sub
Cordialement
Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes.
Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve
des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la
ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4
ligne 15 pour E15 : de B15 à E15
ligne 71 pour E71 : de B71 à E71
ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par
l'utilisteur du tableau.
Par contre g oublié de te dire que j'ai plusieurs feuilles a parcourir comment rajouté cette instruction? sans les rendre actives et sans voir ma feuille récap active, que tous soit transparent.
Merci
"poypoy" wrote:
Bonjour Harry,
Le code suivant devrait faire l'affaire : si ta colonne A n'est pas remplie jusqu'à la dernière ligne change la valeur finale de n pour la mettre sur une colonne où c'est le cas.
Sub recap()
Dim n As Integer, p As Integer, rgused As Range
For n = 1 To [A65536].End(xlUp).Row If Not Cells(n, 5) = Empty Then If p = 0 Then Set rgused = Range(Cells(n, 1), Cells(n, 5)) p = 1 Else: Set rgused = Union(rgused, Range(Cells(n, 1), Cells(n, 5))) End If End If Next n
Sheets("recap").Select rgused.Copy Range("A1").PasteSpecial Set rgused = Nothing
End Sub
Cordialement Benjamin
Bonjour,
Je possède un tableau avec plusieurs et lignes et plusieurs colonnes. Je souhaiterais en VBA qu'excel parcours la colonne"E" et lorsqu'il y trouve des cellules non vides par exemple (E4, E15, E71, E98...) qu'il me copie la ligne correspondante soit:
ligne 4 pour E4 : de B4 à E4 ligne 15 pour E15 : de B15 à E15 ligne 71 pour E71 : de B71 à E71 ligne 98 pour E98 : de B98 à E98
et tous cela sur une autre feuille nommée "RECAP"
l'idée est d'avoir un tableau récapitulatif des choix validés par l'utilisteur du tableau.
